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INTRODUCTION 


The TI-99/4A has been around for some time now but it is 
only recently that it has really taken off due to the massive 
price reduction, | presume. It is, however, a quite remarkable 
computer and stands up well against its supposedly more 
modern competitors. Special features such as a line renum- 
bering routine and an automatic line number generator make 
it a delight to program and often save a considerable amount 
of time. 


The games in this book have been carefully planned to give as 
much variation as possible and to give a good demonstration 
of the machine’s capabilities. 


Many hours have been spent in the preparation of this book 
and | am sure you will enjoy reading it and playing the games 
contained in it. 


Finally, | must say that writing this book has given me 
immense pleasure and | acquired a considerable amount 
of knowledge myself whilst doing so. 


Scott Vincent. 
Ashford, Middlesex. 
August, 1983. 


NINE HOLE GOLF 


With this program you are able to play nine hole golf with the 
computer telling you the par for each hole, the number of 
strokes taken for each hole, your running total of strokes and, 
at the end of the game, your total score and hole average. 


After displaying the par for the hole and the hole number the 
computer will ask “STROKE?”. To hit the ball enter a number 
between 1 and 99. You must always enter a two digit number 
therefore if you wish to enter 6, for example, you must type @6. 
This is because the program uses two CALL KEY commands 
rather than an INPUT command. The higher the number, the 
harder you hit the ball. 


The graphic display at the beginning of the program is 
performed by lines 70 to 220. The special input routine, lines 
450 to 570, wait for any key from @ to 9 to be pressed. When a 
key is pressed the value is stored as a character in A$. Then 
lines 540 and 55@ make sure that the key has been released 
before the loop is repeated and the second key is entered. This 
key value is also converted to a character and added to A$. 
Finally line 570 uses VAL to convert the complete string A$ 
into a numeric value which is stored in the variable A. Hence 
there is now a two digit number stored in A which the 
computer uses in line 62@ to decide how far the ball will travel. 
The distance varies by an amount dependant on the par for the 
hole you are playing. So if the hole has a very high par value 
the distance that the ball travels for a given stroke may vary 
quite considerably. 


Lines 680 to 80@ move the ball along the ground towards the 
hole and make it drop in the hole if the stroke was the correct 
strength. After all nine holes lines 1000 to 1060 tell you your 
hole average and allow you to play another round if you wish. 


1 


1) RANDOMIZE 
20 GAUL CHAR Ties. "S076 /E/7E7E/ESCrr” } 


ee a a er ee re ry 


2@ CALL CHAR CL29, "@OHOOOOOOOOOOOEF "> 
40 CALL CHAR (I20, "G18181G18181F FFF") 
20 (alle GHAR Clo) “BOPP R PEP PEP RP Rr 9) 
6@ CALL. SCREEN (13) 

70 CALL CLEAR 

S@ PRINT TABC9) s "NINE HOLE GOLF" 

OM FRINT TMB ¢&) : TT ACTACEA EA MEALS CERCA SMA CEA CEA CEATAL) 

ifoa FOR N=1 TO 10 

110 PRINT 

122) NEXT N 

13@ FOR Nel TO 4m 

14@ NEXT N 

150 CALL HCHAR (11, 32,128, 1) 

LéQ FOR Nese TO 18 Sree =i 

170 CALL HCHAR(11,N, 32, 1) 

180 CALL HCHAR CIEL, N-1, 128, 13 

190 NEXT N 

200 CALL HCHAR CLL, £7, 32, 1) 

218 CALL HCHAR C12, 17, 128, 1) 

22@ CALL SOUND (100, 587,) 

220 FOR N=1 TO See 

240 NEXT N 

ae Ce 

269 FOR zZ=1 TO 9 

2/7 J=2O+INT CRNDELS) 

230 SC=@ 

278) GO 3+ INT CRNDK4) 

200 CALL CLEAR 

2190 PRINT TAB(4) 3 "FAR FOR THIS HOLE: ";0- 
j 

Se@ PRINT : TABC9) s "HOLE NUMBER”: Zz 
oo8 FOR N=1 TO 2@ 

240 PRINT 

awa) NEXT N 

248 CALL HCHAR (11,1, 129, 22) 

278 CALL HCHAR(CL1,&, 32, 1) 

380 CALL HCHAR (12,8, 130, 1) 

27@ CALL HCHARCL1,3, 128, 1) 
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Ae 

éh 4 @) 
Arce 

438) 

AL eh ia) 
Ae 

4A ow 
4 o 
A 
4.o7%3) 
a) 
B12 
ral 
ara 
Na ad) 
ae 
So 
ara) 
act mh) 
Eg) 
A) 
&12 
ig 
be 


fhe, 


G28 
boa 
O78 
bes 
Ow 
Foo 
71a 
rae 

730 
7 ae 
730 
FOO 
778 
780 
79 


A ae men 
ess 
Kee d 
CALL 
(FO SUE 
($oss tru 


FOR N= 


STLRORE ? 


SOUND (Lae, 


Layee 


=. TO 2 


CALL MEY CS,M,E) 


IF ¢M: 
CAL. 
fy = 
Me) 
feiss 2G) 
GOSUE 
(TALL 


IF Ke» 


MEX T 
A=VAL 
Xun] 


SA) be OM EDD 
SQUND (1a 
Me HPUB CM) 


Layo 


KEY (3, M,E) 
@ THEN 54@ 


N 
(AS) 


ae, 


4 


IF J°8 THEN 610 


Xm] 
fle] 
J=.J +X 
if J 


a 
teen? al 


sooee 


L3 


)« 


O20, 
shies adder Le 


i. wy) 


2 THEN 


> 


APG 


KINT(A/ CL1+INT CRNDEG) )) 


Woe ThE oO, 


ins 
af 


IF ouee THEN 670 


*f eens 
tad oat 


Sl=SC 


FOR N= 


ALL 
iF oe 
ALL. 
CALL 
ALL 
CALL 
MEX T 
LP als 
(TALL 
CALL 
CALL 


ed 
BR TO aya 
HOHAR C11, 


N, 


) 


STE 


73 THEN 7.50 


SOUND (1@@, 
HCHAR C1il, 
HOHAR CLL, 


8 
N 


— 
fy 
“Een 

ed 


4X 


SCLIND (100, —3, 


NM 


2 THEN 8@@ 
g, 32 
HCHAR (12,8, 13 
SOUND (10, 


HOHAR CI L, 


5 fs 


3 


Li 


FX 
Fe dd 
5 
ee 
y Lees 
ey 


ee ae 
i, 1) 
G 4 
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Bie 
1 
an) 
Ss aE 
Gh) 
ea end) 
Bi éi} 
7) 
Bea 
BPG 
See 
910 
920 
Qe 
She 
ow) 
RES 
Fé 
Ig: 
a7) 
OG) 
SOP 
1 ee 
1a. 
{are 
1@n@ 
La4e@ 
if 
Lose 
1840 
{aye 
Lae 
{> 
{aye 
110 


CALL HOCHAR (20, 1:35 325 
IF SC?l THEN 86a 
AS="SCORE FOR THIS 
i ae 

Bat & 

GOSWE Leye 

AS=STRE CSC) 

a Ean 

poids 

GOSWE Leye 

IF J2>& THEN 4 
FOR N=. TO Sao 
NEXT WN 

Cee lS 

CALL CLEAR 

FRINT TABC4) . "YOU DID 


PRINT 


eC 


FOR N=4 
NEXT 
NEXT 2Z 
PRINT 
AVE INT CCORLO) 79) /10 
PRINT 
PRINT se: 
INFUT " ANOTHER 


TO 800 


IF TS 
31 OF 
FOR 


“> "QNO" THEN 


7a 


X=1 TO LEN CAS) 


Pr TAB (4) 2. "SCORE FOR™s 


ROUND? 


1) 


HOLE =" 


LT IN"7SC3 "eTr 


Z:"HOLES 


22 TABC7)s "END OF THAT ROUND" 


:TAB(46): "YOUR AVERAGE WAS": AV 


CYES/NO) "aT 


TALL. HOHAR CM, +X ASC CSEGR CAS, Xb), 


NEXT X 
RE TURIN 


MISSION VENUS 


You are in command of an exploration team attempting to 
land on the planet Venus. You must pilot your landing craft 
through thick fog and erratic winds to a safe landing on the 
surface. 


By using the graphic display on your radar screen and the 
information provided by your computer you must apply the 
correct amount of thrust to touch down on Venus. The final 
landing speed of your craft must be less than or equal to five. 
When your craft gets below 100 metres the radar screen 
changes to give you a larger scale for the final approach. A 
good landing is rewarded with a score based upon your final 
touch-down speed, and the amount of fuel you have left. A bad 
landing will result in a crater on the surface of Venus. The size 
of the crater is related to your final speed. 


Initially, your height will be 500 metres, your rate of fall 15, and 
you will have 20@ units of fuel. To slow your ship down you 
must apply some thrust by pressing any key from 1 to9. Key9 
will apply maximum thrust and key 1 will apply only a small 
amount of thrust. If you apply too much thrust your ship may 
stop descending and will stay at the same height until the 
planet’s gravity starts to make it fall again. 


The main part of the program is from lines 45@ to 980 and this 
controls the printout of your ship on the screen and updates 
the information displayed on the screen such as the amount of 
fuel left and the present height of the craft. It also scans the 
keyboard and alters the rate of descent accordingly if you are 
pressing a key from 1 to 9. Variable K controls the ship’s 
distance across the screen, variable H is the height, V is the 
rate of descent, and F is the amount of fuel you have left. 
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1@ RANDOMIZE 

2 CALL CLEAR 

a CALL CHAR (CIS8, "O@1O71F36261F 1060") 
4@ (ALL CHAR CLIS9, "BOEOF BOC SCF RBOBOS6 ") 
a CALL CHAR (126, "Q@@OOGOE OF RFFFFFF") 
6@ (TALL CHAR CL 37, "@O@OOGOF OF SEFEFFF ") 
7@ CALL CHAR C138, "G8aaaneagaeBaCle@e a" ) 
Ba CALL CHAR CL A9, "GOOOOOOHOLaLOS07") 
S@ FRINT TAR(C11):"FRESS ANY" 

L@@ FOR MeL TO 7 

118 PRINT 

126 NEXT N 

120 FRINT TAB(CS)s "MISSION": TABC1S) s CHRS ¢ 
Led sCHRE C129) 3 TAB C227 ¢ “VENUS” 

4a FOR N=) TO 7 

130 FRINT 

164@ NEXT N 

L7@ PRINT TABCLO) s "KEY TO PLAY" 

Leg PRINT 284 

ive RESTORE 

oe Ne] 

2il@® READ A 

228 CALL SOUND (8a,A,@) 

Z28 CALL REY (3, hy RR? 

240 MEN + 1 

200 IF N13 THEN 27@ 

26% GOTO 198 

2708 IF EK=@ THEN 210 

28 bs 

27@ F=Zae 

SOG Wen Lit 

218 H=308 

Sa (10) 

moO Fat 

SAO Med 

24@ CALL CLEAR 

36 CALL SCREEN C2) 

270 FOR N=1 TO 8 

oo GALL. COLOUR CM, L&, 12 

i908 NEXT N 


ALG GY 


4b ey 
a0 
Ae 
4. Fe) 
TH 
=1@ 
ba 0) 

Er cy 
S40 
shat 
So) 
570 
a oe 
we) 


aE Ket 


ener, 


eats ra) 
bo) 
7 OC) 
719 
7k 
Fane 
FAQ 
75a 
74M 
77® 


FEO 
} 


ALL 
CALL 


PRL RET: 


Og" 
PRINT 
CALL. 
IF H> 
SOTO 
Z= (40) 
Kk +R 
IF K» 


CALL. 
(TALL. 
CALL 
Pa Z 
M=E 
IF F= 
(TALL. 
IF <2 
ZeZ-4 
CALL 
GOTO 
Z=0 
IF = 
eae om 
GOTO 


COLOR € 1.3 


: TAB CE) 


=100 THEN 


Le 
Q@-H) /27 


8,43 
COLOR (14,14, 1) 


TAR Ch) s "FUEL Soa": TAR ¢ 


Pe RATE OF FALL 
HHAR C20, 


134, 33) 
Aye 


ND#S--RND Ke 
3 THEN Sia 


io ag 


2238 THEN 


ae 


HOHAR CF. My ay 2) 


HHA ¢ 2 


we 


128, 1) 


HCHAR (2,K+1,129, 1) 


® THEN 640 


bo ee y’ Co 7 ‘ ei ‘5 
oA) te “y 
{3} 


7 


“ 
*s rhea 


7)<2>@ THEN 448 


ome 
f 
*. 
“F 


SOUND (-Zk108,-5,@) 


hater 2) 


1 THEN 68@ 
StINT CRND*¥6) — 282 


7A 


VeeVe 1+ INT OC CRNDRS)- 2/2) 
© THEN ?Y18 


IF Ve 
Wiss (2 
H=H--V 


LF AS 


H= 
gee en 


IF Fé 


Fe sz (7) 
AS=ST 
AL 


© THEN 740 


RE CF) &" 


HOHAR C21, 


) THEN 77 


11, ASC (CSEGS CAS, 


t 


10) 


ee ag 


Lj 


1) 


2 HE: 


speak 


TS@ CALL HCHAR (21,12, ASC (SEG$(AS,2,1)7,1 
Oe CALL HOCHAR (21,13, ASC (SEGS (AS, 3,13),1 


10 AS=STRECH)E" | 
TALL HOHAR CEL, 27, ASC(GEGS (A$, 1,199, 4 


SS@ CALL HCHAR (21,28,ASC (SERS (AS, 2,1)),1 
e4@ CALL HCHAR (21,29, ASC (SEGS(AS,3,1)),1 
i] 


EO AS=STRE (VIR 


BOM MALL HOHAR CAS, 25, AST (SERB CAS, 1,)b20,0 
e7@ CALL HCHAR (25,24, ASC (SEG$(AS,2,1)),1 


6308 ITF HS THEN 45 
B90 IF Vee THEN 999 
5098 OOT0O Leee 

910 TF Qs1 THEN 98) 
OS kak 
FA sls eee Lie gece) 

Pd a a 

F420 IE Z21 THEN Se 

970 Z=1 

S30 GOTO 4&0 

998 CALL HCOHAF OCR, MM, Shit, 2) 

twee CALL HCHAR (28, a eS Oe a 

1910 CALL HCOHAR Cfo, K+1, Os ee 

twaee FOR N= TO Be 

1H38 CALL COLOR ¢C14,9, 13 

{ada CALL COLOR (14,2, 1) 

1M58 CALL SOUND ¢—4@@,-7 63 

108450 CALL COLOR (14,112,143 

1070 NEXT N 

180 CALL CLEAR 

10 PRINT TAR (CS) + "### CRASH LANDING #H## 


{1@0 PRINT ss TAR(S)s "LEAVING A CRATER" 
LiiG PRINT 2 baa Cr ys Veoe ME Ree DEEP 


Liao LP oP Pe THEM io = Q 
L130 PRINT 28 TABCG) s "YOU RAN QUT 


LR | 


140 PRINT £844 


166 GALL KEY Co,h, KR} 

170 IF K= 89 THEN 2a@ 

le@ Te Bete vs THEN Lled 

re eT Oe 

Oe CALL HCOHAR CSI, aes Sab be 
210 CALL HOHAR CR. MM, ,i2) 

ee! CALL HCHAR CLS, KE “42 2 , : ) 
ao8 TALL HCHART IS, k+l, 129, 1) 
24a FOR Fel TO 2 

eae RS TORR: 

260 FOR N=1 TO te 

2/7 READ FF 

cee CALL SOUND C1e@ea@,A, @) 

290 NEXT NM 

Ls a NEXT F 

Lol GALL CLEAR 

Lose PRINT TRESS e' eee SUCCESSFUL 
(RR E" 

L3@ PT=F-Vxk1e 

L248 TF Fol THEN 1368 

1250 FT=2 

Poow PRINT. £42 1TABt7) 4 "SCORING Ss FT s 


=? GOTO 1149 


a Gb cee chee ee 


0) S| 


L2@ PRINT TABC?) s "ANOTHER Ge CyY/N)" 


LANDIN 


"POINTS 


1288 DATA 29 seam - 49, SO2, 294, 320, 294, 242, 44 


a, 22, 2O4, BOD, “AG 


MAGIC SQUARE 


Magic Square is an exercise in mental arithmetic. The 
computer generates a three by three grid. Some of the grid 
positions are occupied by numbers, some by question marks. 


The computer challenges you to fill in the blank spaces with 
the correct numbers. The only clue you need is that the total of 
each column (horizontal and vertical) is the same. Negative 
numbers and zero are legal. 


Numbers for the grid are selected and assigned in lines 100 to 
290. Line 320 keeps a running total of the number of guesses 
you have had. This is done by incrementing variable J. Line 
300 performs this function. Lines 340 to 420 print the grid on 
the screen. 


10 RANDOMIZE 

20 DIM AC?) , BCS) 

38 (TALL CLEGF 

40 FRINT TAB‘C4):"M AG IC SOU AF 
EB 

22 FRINT sss 

40 FOR N=1 TO 8a 

71) NEXT WN 

Bey Jae 

oe) M= 

1o@ C=1+INT CRNDK?) 

110 D=1L+INT CRND*9) 

120 IF C=D THEN 110 

130 E=1l+INT CRND#A9) 

140 IF (C=E)+(D=E)<>@ THEN 120 
28 ACL) =0+D 

160 ACS)=C-(D+E) 
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17 ACS) sC+E 
180 A(4)=0-D+E 
LPO GCS) ae 

200 O(6) =(+D-E 
210 QC7) s-E 
220 A(8)=C+D+E 

258 ACP) sO-D 

246 FOR Z=1 TO 9 

250 ECZ)#a(Z) 

Z@ NEXT Z 

278 BCC) Re 

280 B(D)=3o 

290 BCE) =a 

OO JaI+4 

310 CALL CLEAR 

B20 PRINT TAB(1@):"GUESS NG." 
B3O PRINT os 

40 FOR Yel TO 7 STEF 3 

3a FOR Zea TO 2 

60 IF B(Y+E)=3@ THEN =9@ 
S7O PRINT TAR CL@+245) pRCY+Z) 
280 GOTO 4ae 

S90 PRINT TABCL@+2#5) 272": 
4.0 NEXT 2 
410 PRINT s 
420 NEXT ¥ 
450 IF Me THEN Ss 

440 PRINT TABC7):"YOU HAVE"sMs "RIGHT. " 
450 PRINT :TARC1@): "WHAT NUMBER?" 

469 INFUT U 
AVG Mat 
4930 FOR Z=1 TO 9 

49a TF Us >ACZ) THEN 51a 
fa@ BCZ) =U 

S10 IF B¢Z)=3e THEN Sma 
2a M=M+d 

S30 NEXT 2 

40 GOTO sae 

Sea PRINT 3 
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fide) 
ag) 
F fe) 
a ra) 
bie 
G1 
420 
63 
& 4h 
oa 1 
650) 
Hh 7 


bf 


PRINT :TAB(6):"YOU HAVE SOLVED 


PRINT 3: 

FOR Fei TO 4 

Xa PO! 

FOR C=11@ TQ 1910 STEF x 
CALL SOUND (10@,C,@) 

NEXT © 


Yess DB ha Pk Se 


FOR C=1010 TO 11@ STEF -¥ 


CALL SOUND (10,0, @) 
NEXT C 

NEXT F 

STOF 


le 


Toes 


SUBMARINE COMMANDER 


You are the captain of a nuclear submarine on patrol in the 
Atlantic Ocean. Your task is to track down the enemy sub- 
marine and destroy it with your torpedoes. Your torpedoes are 
only effective at close range and you must hit the enemy twice 
to destroy it. Watch out for the enemy's return fire and do not 
get too close or there may be a disastrous underwater 
collision. 


Your fuel consumption increases when you fire your 
torpedoes or you are hit by the enemy. The game ends when 
you either run out of fuel, run out of time or manage to sink the 
enemy submarine. 


You will receive constantly updated reports on your position, 
the amount of energy you have left, the time left and the rough 
position of the enemy. You will also be warned when your 
energy is low and when you are under attack. 


ta RANDOMIZE 

28 (TALL CLEAR 

2a GOSUB 1260 

44 (TALL. CLEAR 

2 GOSUB Le60 

40 GOSUE F7e 

fo IP - Lae THEN 7 ie 

84 PRINT +: TAR C4): "WHAT TS YOUR ORDER. © 
are TAIN?" 

BO Lt, ae 

1@a@ PRINT + TABCS)s "NORTH, SQUTH, EAST, W 
a a a 

110 PRINT :TAB(S) ;"UF, DOWN OR TORPEDO" 


Ley GAL BEY ca dy ad? 
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130 ITF (J=78)+(3=83)4+(J=69)+(7=87)+ (7J=85 
J+ 0968) + 072844) =@ THEN Lee 

14@ TF Jx>64 THEN 148 

12) bOSWE 3 7o 

foo X=X+(J=79)-( 7 =85) 

L7O ABACK SLO MH CXL) 

1a YHV¥+1(J=87)-(J=469) 

Loy YR Yt OY PLOY s, 1 

2008 ZeZ+ (JSS) ~-(J=68) 

260 £ece tg elo) C24 1 

228 IF T=2 THEN 1450 

220 (OSWE Boe 

240 J=INT C(RNDK2) 

23@ A=A+INT (RNDKS) XC J=0)-INT CRNDKS) KO T=] 
) 

260 TF (AX 1) +(AS10)=@ THEN 2o@ 

27M ALE OK CAS 1O) 

23@ J=INTCRNDK2) 

270 B=B+INT (RNDKS) KO J=2)-INT CRND¥S) KC J=1 
20@ IF (Bil) +(B219)=0 THEN 320 

S10 Be14+9%X (R218) 

2290 J=INTCRND&2) 

223@ C=C+INTCRNDKS) &(J=0)-INT CAND S) KOT=1 


49 IF (Ciid+(Cri@)=@ THEN 349 

S5@ CHlt+9k (CLO) 

2469 GOTO 468 

370 LoL. 75 

280 IF (ABS (A-X) 23) + (ABS (B-Y) 23) + (ABS (C- 
Z)>3)=0 THEN 430 

29 PRINT ::TAB(S) 3: "\\\\ QUT OF RANGE // 
er 

4@@ CALL SGUND(100@,11@,@, 117, 9) 

410 CALL SOUND (10@, 523, 0) 

420 RETURN 

430 PRINT ::TAB(4); "ORDER TO FIRE UNDERS 
TOOD'::TABCL2) 2 "CAFTAIN" 

449 FOR J=119 TO 1@@@ STEF 1@ 

45@ CALL SOUND (—S00,0,@, 1110-J,@) 
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440 NEXT J 

470 IF RND?.S THEN Sie 

480 FRINT : TAB(S):">2>> YOU MISSED! ! 

4909 FOR J=1 TO 2a 

WO® N=) L@+RND e408 

S19 O=S1O+RNDk4a0 

229 PO La+rkND e4o0 

we@ CALL SOUND (S0,N, @) 

24+@® CALL SOUND (58,0, @) 

e@ CALL SOUND (S0,F,@) 

WOM NEXT J 

27@ RETURN 

230 FRINT =: TABCS)3"kK+xk+k YOU DID IT, SIR 
KAKA HE" 

2978 FOR J=1 TO if 

600 PRINT 

612 NEXT J 

620 T=T+1 

68 RETURN 

640 (TALL CLEAR 

on@ FRINT 2s:sTAb (le): "END OF GAME” 

660 IP Tis. 7@ THEN 68a 

672 PRINT 24 TABCS) $@YOW STAYED UNDER TOO 
LONG!" 

630 IF Le=0@ THEN 7a@e@ 

690 PRINT 2: TAR C4) s "YOU HAVE BEEN DEFEAT 

BD" 

70 IP Lar THEN 720 

710 PRINT ¢2 TAB tas “ALL ENERGY Ski” 

fae PRLNT fa 9% 

7.30 GOTO 147 

740 FRINT os 

fe hes 

~@ PRINT := TAB(CS) s "THE ENEMY SUBMARINE! ! 

740 FOR V=@ TO 38 

77® CALL SOUND (200,—-7,V) 

730 NEXT V 

79®@ GOTO 1476 


+ 
7) 
TAB C4) 3 "YOU HAVE COLLIDED WI 


15 


600 TF (ABS CA- KD: af +(OBG CB) 2+ CABS (C— 
Ly ad CRAD So FPS 6) THEN Fie 
Sia FRINT TAR ¢ 3) ,°RRKK WARNING RR" 
920 PRINT :TABCS):s "ENEMY IS FIRING AT Us 
G30 FOR V=e~S TO -7 STEP -1 
840 CALL SOUND (140@,V, @) 
@ NEXT V 
God IF RMD?.S THEN 93 
B70 PRINT :TABC2) penn THE ENEMY HAS HI 
T Phe Ne The Ne HE 
Boa - cae tthe Ly Eee ee Oe 
Sey sel: 
Sem CFE ri =] TO 600 
91@ NEXT J 
920 RETURN 
Fe FRINT 2sTABbtess "THE EREMY MISSED” 
940 FOR G1 TO 64a 
SS MEXT J 
960 RIE TLR 
S7@ CALL CLEA 
Sea FRINT : TAR (C&S) s "ENERGY FREMAINING": TAR 
(11) sl: "ERGS" 
Seg TS) Li 
ja@@e TF Tl=@® THEN 444 
fAiw PRINT £TABLLS)e “TIMES "sr 
L@2@ CALL SOUND (200, Sa@-TI-i2kL, @) 
bese TF Lad THEM tose 
1@4@ FRINT +: TAB CS) s "ENERGY LEVEL Is Low! 
1@50 FRINT #TABCLS)s"TALLYs ":T 
106 PRINT 2:TAB(G)s "YOU GRE AT"s¥s", "s¥ 
te Fe 
170 IF (A=X%)+¢(BeV)+(C=27)=-3 THEN 74a 
LMB8e@ FRI NT STRB (Le): “THE BNEMY IS” 
1@9@ ITF (AbX)+¢(Bi ty) =@ THEN 1219 
1100 PRINT ¢TABt9)2"TO THE?" 
1110 IF Av’=X THEN 1138 
1120 FRINT “NORTH"s 
1130 IF As=X THEN 11308 
114 FRINT "SOUTH": 


16 


1180 IF Be=yY THEN 1178 
1140 PRINT “EAST” 

1170 IF B>=yY THEN 119° 

L186 PRINT “WEST! 

1199 IF C<2Z THEN 1210 

1200 PRINT :TABRCL2) "OF You" 
1210 IF Cx=2 THEN 1230 

L220 PRINT :TABCL1)s "BELOW YOU" 
1250 IF Cr=Z THEN 125¢ 

1240 PRINT :TABC11): "ABOVE You" 
1250 RETURN 

L268 Le2G+INT CRNDESO ) 

17a Tae 

128 TIs5 

{29 A=1+INTCRNDKL®) 

13O@ Be1+ INT ORND#EL®) 

131 C=1+INTCRNDE1L®) 

B20 Xe L+ INT CRNDK 12) 

SS@ Ye1+INT(RND#e1La) 

34a Z=1+ INT CRNDK1@) 

5@ RETURN 

68 LET At="SUBMARINE COMMANDER" 

70 FOR N=? TO 22 STEP 4 

1380 FOR Y=1 TO 19 

139@ CALL HCHAR(M, Y+N/2, ASC (SEGE OAS, Y, 1) 
ee. 

L40@ NEXT ¥ 

141 NEXT N 

1420 FOR N=1 TO 5@e 

145@ NEXT N 

L440 RETURN 

1450 PRINT 222: TABS): "ENEMY SUBMARINE D 
ESTROYED" 

144@ GOSUB 1530 

1470 FOR J=1 TO 40 

148@ NEXT J 

1490 FOR J=1 TO 25 

13a@ PRINT 

L510 MEXT J 

1520 STOP 


“oF 
i) 
wet 
is 
igs 


1. 
Gs 
1 
© 
oe 
le 


Te 


1-38) 
140 
1938 
1560 
1578 
128e 
LA9e 


FOR d=1 TO 3 
FOR N=2 TO 164 
(ALL. SCREEN CN) 
NEXT N 

MEXT J 

CALL SCREEN (4) 
RETURN 
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CHECKERS 


Here is a simple checkers program which you will find quite 
entertaining to play. The game follows standard rules except 
that there is no penalty for failing to capture an opponent's 
piece. However, the computer will try to jump one of your 
pieces whenever it can. 


The board is the normal black and white checkered colour. 
The computer is the light red pieces at the top of the board and 
you are the cyan pieces at the bottom. To move a piece just 
enter the location of the piece you wish to move beginning 
with the letter across the bottom of the grid followed by the 
number down the side, such as G3. Then enter the location of 
the square you wish to move to in the same way. 


The computer always has the first move. The number of 
pieces you have both captured is displayed below the board. 
The game ends when one of you has lost all of your pieces, or 
the computer decides it is in a hopeless position and 
concedes the game. 


Strategy is not the computer’s greatest virtue in this program 
but it will be very reluctant to move into danger and it will put 
up a spirited defence when under attack. Kings are created 
automatically and are the same shape as the other pieces but 
have a black mark in the middle of them. The computer will 
reject any illegal moves. 


Lines 1480 to 159@ draw the checkerboard pattern on the 
screen at the start of the game. Lines 180 to 560 control the 
computer's moves and lines 57@ to 1010 control the player's 
moves and make sure that they are legal. Lines 1760 to 2150 
move the pieces around the board and remove any pieces that 
are jumped. 
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1@ RANDOMIZE 

7 CALL. CHAR (128, "®@3C7E7E7E7ESCOD" ) 

30 CALL CHAR (L29, "O@SC7EGGS67ESCO8") 

4@ CALL. CHAR (136, "@@3C7E7E7E7EICOO") 

HO CALL CHAR CLE, "@OIC7EbOG67E SCHOO") 

6@ CALL CHAR (144, "FFFFFFFFEFFFFFFF") 

70 CALL CHAR CLS2, "FFEFEFEEEEFFEEFE ") 

Ba DIM AC99),X¢2) 

90 GOSUB 1830 

19@ =o 

110 Ze24 

12@ FOR G=49 TO 72 

130 IF A(G)<>128 THEN 179 

14@ A(G)=129 

19@ CALL SOUND (1@, 88a, a) 

16@ CALL HCHAR (3, 159-Gk2,129,1) 

L179 NEXT & 

180 IF (A(Z)=136)+(A(Z)=137)=0 THEN 33@ 

L9@ TF (Z22B)+(ACZ) #136) <2-2 THEN 230 

200 ACZ)=137 

210 CALL SOUND (10@, ae, a) 

220 CALL HCHAR(1@,68-Z2*2, 137, 1) 

230 Y=1 

240 IF CACZHX(Y) 2150) 4+ (AC Z428X (Y) ) = 152) 
ye 2 THEN 248 

250 G=X (Y) 

ZO IF (AZ) S157) +(ACZ-X(Y) £1350) 4+ (A(Z-2 

EX CY) )RLS2)2>—3 THEN 28@ 

270 G=—X CY) 

280 IF (GeO) +(Z+2kQ>23)=-2 THEN 34@ 

290 Gx 

209 IF Y=2 THEN 330 

Yan 

320 GOTO 240 

330 ZeZ+1 

24@ IF 2273 THEN 180 

340 IF Q=@ THEN 39e 

$60 A(Z+0) =152 

370 Q=Qx2 

389 GOTO 54@ 
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SOG Lp) 

400 Z=D4+INT CRNDR4S) 

AL@® Uell+d 

420 IF (A(Z) =136)+(A(Z)=137) THEN 450 
450 TE Ucleae THEN 4a@ 

440 GOTO 2200 

ANG Yad 

469 IF (ACZ+X6¥))< 2152) THEN 480 

A7@ =X CY) 


493@ IF (ACZ)=LS7)4+ CA C2Z-X CY) SLS2) eee TH 


EN ae 

A9@ C=—X CY) 

5aa IF @o>@ THEN S40 

S10 IF yY=2 THEN 45@ 

S20 Yat 

ea GOTO 460 

SAG ACZ+O) #2) 

S50 ACZ) #152 

540 GOSUB L7be 

E70 CALL SOUND (208, 700, 9) 
S30 Ab= "MOVE? TO " 
FG J=1& 

Soe GOSUB 17h: 

é1@ CALL KEY (3,KA, KE) 

620 IF KA=48 THEN 2160, 

6350 IF (KA¢65)4+(KAP72) 220 THEN 418 
640 CALL SOUND (1a@, 52%, 0) 

650 CALL OH ORS Seg 2 eed 

660 CALL KEY C3,EB, KEK) 

£70 IF (KB¢49) +(EE>S4)<>@ THEN 460 
680 CALL SOUND (Lee, 5a7, a 

6£9@ CALL HCHAR (14, 18,5, 1) 

7OO CALL KEY C3,EC, KE) 

719 IF (KC<45)+(KC272)<¢>@ THEN 790 
720 CALL SOUND (10@, 659, a) 

73@ CALL HCHAR (16, 22,KC, 1) 

74@ CALL KEY CS,ED, KE) 

750 IF (EDL49)4+(E D256) 220 THEN 740 
Joo CALL SOUND (100, 698, @) 

779 CALL HCHAR (16, 24,ED.1) 
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7B) 

7 Opi *) 

Ge 

1 @ 

G2 

se) 

Gt} a 

33 ew 2) 

Géo i) 

7 0) 

Beso 

3° @) 

ass) 

91® 

920 

9 a 2) 

Seb 

re L 

@ 

S 4A) 

HEN 

7/2 

28a 

eed a) 

LHaa 
Lois 
Laee 
a) 
Lea4® 
Lome 
1LO6a 
Lazo 
1 @Be) 
Lage 
L1@e 
111 
1120 
L130 
1i4e 
1156 


L25- CINT € (CKA-6S) #2) ) 

Q="7-KB 

IF Q/28 INT (G/2) THEN 82a 

ZEeZe17+r 1 Be CO/ 2) 

GOTO 4a 

LeLeLiri ae oCQ+)) 722) 

Zie2a~ CINT OCKC-65) /2)) 

QS 7 KD 

TIF GQ/22 2INT(G/2) THEN 8¢ 

LLeEZLAEL7+15% (O/2) 

GOTO cae 

ZLELEZTAV VALS CO COQ4+1 0/2 

Q=Z22-2 

IF ACZ) & Led THEN S7e©) 

IP ACZZIS eiS2 THEN 379 

IF (467) #128) + C020) 2-3 THEN F7e 

TF (ABS (0) =4)+ (ABS (OD =7) 228 THEN 98a 
ITF CARS (AQ) =12)4+ (ABS (Q)==,4)2a@ THEN SY 


TE (AC2Z4+0/2) $136) + 0A 0240/8) =f E57) =8 T 
7 0) 
ACZ4+Q0/2)=152 

ACZ+Q) =A CZ) 
ACZ)=152 

CAL HOCHAR Le, Li, oe, D445 
GOSUB 1742 

GOTO Lee 

CALL CLEAR 

CALL SCREEN (12) 

Gait: COLOR (12. Gy 22 

CALL COLOR (14, 1,02) 
CALL COLOR (15,16,16) 
(ALL COLOR (14, 2, 2) 
BS="C HE CK & RS” 

J 1 

GOSUBR 1718 

(Via 

FOR Neil TO 11 

(= (TSLCOHRG C144) SOHRB CLD) 
NEXT WN 


Ze 


1146® FOR J=9 TO 11 
117@ Q=1-(INT(J/2) =J/2) 
118@ A$=SEGS (C$, 0,21) 
119 GOSUB 171 
1208 NEXT J 
1210 A$=SEG$ (C$, 2, 3) &BS&SEGS$ (C$, 2,3 
1220 J=12 
230 GOSUB 1710 
1240 FOR J=13 TO 15 
125@ Q=1-(INT(J/2)=d/2) 
1268 A$=SEGS (C$, 0,21) 
127 GOSUB 1710 
128@ NEXT J 
129@ FOR N=1 TO 50@ 
1300 NEXT N 
1310 CO=0 
1320 HU=6 
1330 X(1)=-6 
1340 X(C2)=—7 
1350 FOR Z=1 TO 99 
1368 ACZ)=199 
1370 IF (2¢73)+(Z255)<2-2 THEN 1400 
1380 IF (Z=67)+(2=68) + (Z=60) +(Z=61)+ (Z=6 
2)<>@ THEN 1400 
139 A(Z)=136 
1400 IF (2£54)+(Z242)<¢>-2 THEN 1430 
1410 IF (Z2=47)+(Z=48)+(Z=49) <> THEN 1473 
@ 
1420 A(Z)=152 
1430 IF (2441)+(Z223)<¢>-2 THEN 1460 
1440 IF (Z=34)+(Z=35) + (2236) + (Z=28) + (222 
9)<>@ THEN 1460 
1450 A(Z)=128 
146@ NEXT Z 
1470 CALL CLEAR 
1480 FOR N=3 TO 9 STEP 2 
1490 FOR P=15 TO 21 STEP 2 
150@ CALL HCHAR(N,F-1, 144, 1) 
1510 Q=85—((N-1) /2) K13-(P-15) /2 
152@ CALL HCHAR(N,F,A(Q), 1) 
1530 NEXT P 
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1340 FOR F=14 TQ 2@ STEF 2 

L550 Q=e79—CON-1) /2) RLS (P14) /2 
15460 CALL HCHAR(N+1,F,A(Q), 1) 
L570 CALL HCHAR(M+1,FP +L, 144, 1) 
1580 NEXT F 

1590 NEXT N 

aaa FOR N=z TO ia 

161@ CALL HCHAR CN, 22,N+46, 1) 
162@ CALL HCHAR (11, 114+N,N+62, 1) 
Lo3@ NEXT N 

164@ Ag="T HAVE CAPTURED 3” 

1650 J=21 

144@ GOSUB 1710 

167 AK="YOU HAVE CAPTURED @" 
1680 J=25 

169 GOSUB 1714 

178@ RETURN 

{710 E=INT ( (SE-LEN (AS) ) /2+.5) 
1720 FOR G=1 TO LEN CA) 

173@ CALL HCHAR (J,K+Q, ASC (SEG$(A$,G,1)), 
L) 

1740 NEXT @ 

L750 RETURN 

1740 ZZ=Z 

L770 CX=14 

178 22=27-6.5 

1798 CX=CX-1 

1800 IF ZZ>23 THEN 178@ 

1810 ZZ=INT (P2446. 5k (19-CX) } 

{82@ CY=21-(2-Z2Z) x2 

19830 CY=CY+ CINT (CX/2) =CX/2) 

1984@ CV=CX-SGN (GQ) &(1- (ABS (Q) >7)) 
1850 CWHCY+ (O27) + (Q=-6) 42% (O=14) 42% (Qs— 1 
2) -(Q=6) ~(G=-7) -2k (Q=12) -2x (G=-14) 
1986 FOR N=. TO 3 

1874 CALL SOUND (S@@,-1,0) 

188® CALL HCHAR(CX,CY,A(Z+0),1) 
189 CALL SOUND (S50@,—-3, 4) 

19@@ CALL HCHAR (CX, CY, 152, 1) 
1910 NEXT N 
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LOL FOR Nel TO 3 

1P20 CALL SOUND (S0a,-5,9) 
LO4@ CALL HCOHARCCY, CW, 152, 13 
19S0 CALL SOUND (300,-7,@) 
1L96@ CALL HCHAR COV, CU, ACZ+0), 1) 
Loy NEXT WN 

1980 IF ABS (OQ) <8 THEN 21508 
1°90 CX=CX+ (CX eCV) -(CK«CV) 
CAO CYR Ye CY SAD CD yew) 
S018 CALL SOUND (Sea, 12@, 4) 
ee@ (TALL HCOHAR CCX, CY, 152,11) 
S38 HUH (AC Z+0) 13) 

Oba (TOI ca C240) e138) 

2050 AS=STRECCOIR' " 

2OG@Q TP y 

2070 bad 

2G GOSS L7ee 

29¢08 AS=STRECHUIE " 

<l@e Jes 

ZL1@ K=2S 

2ilec) GOSUB 1726 

else IF CO=12 THEN 2148 
<c1l4o TF HUe1l2 THEN lens 
2150 RETURN 

2140 CALL CLEAR 

2170 PRINT TABC13)3s"I WIN." 
2LEB@ PRINT #2: 

2190 STOF 

m2 CALL CLEAR 

221@ PRINT TAB (46): "I CONCEDE THE GAME." 
eeeckd PRINT ::TABCL2): "YOU WIN," 
eac@® PRINT se: 


2248 STOF 
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GESSWURD 


This is the traditional word game known as hangman which 
involves the guessing of letters in an unknown word. The 
computer selects a word from its DATA store (lines 680 to 780) 
and displays anumber of dashes on the screen corresponding 
to the number of letters in the word. When the prompt appears 
press any letter and if it is in the word it will be displayed in the 
correct place otherwise it will be placed in the incorrect letters 
list at the bottom of the screen. If you choose a letter which 
appears twice in the word then it will appear in two different 
positions on the screen. When you have found all of the letters 
the number of goes that you took is displayed and the 
computer then gives you another word to guess. 


The program relies on a store of words in its DATA files. This 
program provides a list of 110 words. You can quite easily 
increase the computer's vocabulary by adding extra lines of 
DATA anywhere after line 780. The only other change which 
needs to be made to the program is in line 70. The variable Z 
has to equal the number of words in the DATA store. 


Line 15@ picks a number at random between 1 and Z. The 
program then reads the DATA store down to this number. For 
example if the random number was 45, the computer reads 
down to the 45th word, EAGLE, this word then becomes the 
string A$. 


Lines 200 to 260 work out the length of the word and display 
the correct number of dashes on the screen. Lines 270 to 320 
then wait for a key to be pressed and make sure that it is a 
letter. The letter is then compared with each letter of the word 
in turn, lines 350 to 470, and the letters which have been 
correctly guessed are stored in the string B$. Line 550 
compares the complete word, A$, with the string B$ and if they 
are the same control is sent to line 570 which tells you how 
many goes it took, otherwise control is sent back to line 270 
which waits for another input. 
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1a) 
2 @) 


PAM OOM T ZE 

(ALL. CLEAR 

FRINT TAR(CIS): "GESSWURD" 
FOR Net TO as 

FRINT 

NEXT NM 


wes 1G 
Ko 
GOSUB 646 
GE=e 
H=18 


[=22 


YHl+INT CRMIOK 2 
KES PORE 

FOR N=1 TO ¥ 
READ At 


1?Q NEXT N 


Z=LEN (AS) 
Ag" 

FOR N= TO 

EMR Eke" 

NEXT N 

Se tNT (CE4—-2) 42) 


CALL HCHAR (9,S+1,95, 2) 


70 (b=e"LeETTER ‘" 


J=14 

k= 13 

GOSUE 640 

CALL KEY (3,0,k) 

IF (J£65)+(0298)<2@ THEN 210 
GE=GE+1 

CALL HCHAR (14, 14,32,8) 

LT 


FOR N=1 TO 2 


7O TF ASC (SESS CAS,M, 1) 220° THEN 


Oss theta 


S9@ TF N=. THEN 41 


D$=SEGS (BS,1,N-1) 
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470 


410 Dh=D$eCHR C7) 
ASO IF N=Z THEN 44@ 
AB D$=DseSEGS (BR, N+L, Z-N) 
440 Bk=DS 
450 T= 
46@ CALL HCHAR (9, S+4N,7, 1) 
A7® NEXT N 
49@ IF LT=1 THEN 55@ 
490 CALL HCHAF CH, I,d, 1) 
Gaa@ CALL HCHAR (CH, 1+1,44, 1) 
Sia Tep4+o 
520 IF 12232 THEN 559@ 
ey Tad 
BAG H=H+2 
S50 TF At=Bs THEN S74 
E60 GOTO 274 
57 C#="THAT TOOK YOU "SSTRS(GE)&" GOES" 
0) Jad 4 
59a Kad 
6O® GOSUE 640 
£10 FOR N=1 TO 4600 
420 MEXT M 
620 GOTO 26 
640 FOR NM=1 TO LEN CCH) 
65 CALL HCHAR (J,K+N, ASC (SEG$(C$,N,1)),1 
j 
66a NEXT N 
47 RETURN 
648 DATA COLIGH, BOUGH, DRAUGHT, CAUGHT, WELC 
OME, ASSIGN, CHECKED, SHRUGGED, RECORD, FATRO 
MISE, DECODE, MIDDLE, FIDDLE 
690 DATA TERROR, HORROR, FOSTER, ELEPHANT, T 
RIUMPHANT, STATUS, ANSWER, BATCHELOR 
70% DATA TENOR, FRANTIC, TERRIER, BANANA, FI 
GURE, IDIOT, NARCOTIC, FATHETIC 
71% DATA WIZARD, LIZARD, WICKED, MISER, EVIL. 
WEASEL, WHEELS, BLIZZARD 
720 DATA PARTICLE, ARTICLE, ATOM, ELECTRON , 
STARTED, PARTED, FAMISHED, EAGLE, LEGAL 
730 DATA WATER, WANTED, WAITED, WALTER, MINT 
STER, SINISTER, FINISHED 
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740 DATA FERSONAL, ASSUME, PROGRAM, POSTAGE: 
»FOLLOW, WALLOW, CHALICE, MALICE, SCHEME, DIS 
ASTER, REACH, SEARCH, EVER 

75@ DATA FOWER, LOWER, FLOWER, DOUBLE, TROUB 
tes LeHTLY. FLL eA) PLAT Sibyl eb. POUGHT. 
ROUGHT , SOUGHT, TROUGH 

760 DATA RHYTHM, RAY THM ICAL, RICOCHET, POIME: 
T,RIVULET, GNASH, GNAW, GNAT, GNU, GNOME , QUAF 
Té, QUASH, QUEUE, QUADRILATERAL 

778 DATA FYLON, PYGMY, PYTHON, XYLOPHONE, 20 
DIAC, ZEPHYR, ZOOM, BAZOOKA, BARRIEL , BARON, & 
ARROW 

78@ DATA GYRO, GYRE, GYM, GYPSY, GYRATE,FYJA 
MAS 
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ALIEN ENCOUNTER 


This is amoving graphics game which involves blasting aliens 
out of the sky before they reach the edge of the screen and 
escape. You control a laser base which is positioned at the 
bottom of the screen and can be moved left and right using 
keys S and D respectively. The aliens will take turns in trying 
to get from one side of the screen to the other and you must 
shoot them down with your laser. 


To fire the laser press the space bar. Only one of your bullets 
can be on the screen at onetimeso aim accurately or you may 
have to wait a while before you can fire again. The game ends 
after eight aliens have appeared. 


To make the game more interesting there is a high score 
feature and a very impressive display at the start. Also the 
number of points you score for hitting an alien depends on its 
distance from your base. 


Lines 14@ to 330 provide the display at the beginning of the 
program. Lines 450 to 840 are the main part of the program 
which connect the various subroutines together and control 
the aliens’ movements. Finally, Lines 85@ to 1160 end the 
game, update the high score if necessary and send control 
back to line 140 for a new game. 


1@ RANDOMT 25 

20 CALL CHAR (126, "9@181813818181800") 
20 CALL CHARCL2S9, “LSSC3C7EFFFFFRER™) 
44 CALL CHAR (126, "C6é29193CSA7E42CE") 
5@ CALL CHAR(137, "G394983CSA7E4275") 
6@ HI=@ 


30 


7@ CALL CLEAR 

ao) CALL SCREEN (S) 

94 FOR Nel TO 1 

{@@ CALL COLOR(N, 14, 1) 

11@ NEXT WN 

{20 CALL COLORIS, 1¢, 1) 

130 CALL COLOR CL, 4, 1) 

1440 RESTORE 

15@ CALL HCHAR(11,10,1236,15) 

16@ CALL HCOHAR C22, 1,129, 1) 

17@ X=o 

180 FOR N=1 TO 15 

{F@ READ A,C 

2 TF a>X THEN 2a 

21a B=] 

226 GOTO 24a 

220 B=~] 

248 GOSUB 1170 

Se Kay 

260 GOSUB L22e 

Z7@ CALL SOUND (10@, 1@@+Nk10, 0) 

280 CALL HCOHAR CL1I,*,C, 1) 

2°90 NEXT N 

GME) Epa]. 

218 A= ZL 

320 GOSUB 1178 

B3@ CALL HCHAR (22,32, 32,1) 

S48 fee id 

25@ B=3 

BSO@ Foal 

B7@ SC 

SB@ FR 

BeO@ AS="SCORE =a HIGH SCORE ="25TR# ¢ 
HT) 

408 Jaid 

440 bls 
470 GOSUB L716 

4°3@ CALL HCHAR (11,10, 32, 15) 
4444 CALL HCHAR (22,8, 129,13 
45@ FOR N=1 TO & 
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4.412) 
a7 
4e3 
AD @ 
Soe 
mie 
rian) 
a 
Ebi 
Ly in ae 7} 
nd 
B70 
125 £23 (3) 
bat Cs rrr a 
Gy (12) 
Le 
by hs 
to) 
H4h@ 


&ya 
FAa1) 
File® 
720 
Fe 
7A 
Pa 
Pee 
772) 
738 
798 
Beg 
1 
ie 9) 
Be 
Babe 
Se 
Bd 


=]+RNDKS 

FOR M=1 TO x 

GOSUB L2e¢e 

FOR g=1 TO Se 

NEXT 2 

oa FM 

pass | aan (AND K 20) 

ne Va? 

IF RND?.5 THEN Yo. 

CALL HOHAR CP, 1,136, 1) 

Maris 

CALL GCHAR (CF. M.W) 

pipe 1 AK Ce a) “L178K (O21 37 

CALL. SOUND C1S0, 55, @) 

Cel. PIC Ch. = 1.< ae gare 

CALA. HCHAFE: ¢ p M,G@, 1) 

Le Wed Se THEN Lo} 1 ea 

Hie) Sok (Gh LSP) eR CQ 1 34) 

(3 () i} {J} i 1 es 9? (i 

TIF Wl THEN 14610 

Mee 1 

IF M233 THEN Be a) 

(MALL. HCHAR CR, 32, 32, 1) 

GOTO 84a 

CALL HCHAR (PE, S25 D565 13 

Macs 1 

CALL GCHAR CE, M, Wd 

SSe-_ Lax (Qe 1 36)-Li rk (127) 

CALL. SOUND (ise, Sf 2a ) 

CALL. HCHARCP, Mel, fa, 12 

CALL HCHAR (FIM, G41) 

ITF Welts THEN 141 

Q=—156* (GQ=127)-US 7k (C136) 

GOSWE Lege 

IF W=1 THEN 1410 

eM f 

IF M>@ THEN 720 

CALL HOHAR CP) Ly cat, Li? 

NEXT 

FOR Nei TO 24 

CALL HCHAR (N,N, 126, 33-N) 
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aware) 
Bese 
i}? &) 
Fie 
o1e 
ae) 
ee 
S440 
IES) 
Foe 
O78 
Soe 
pe 
j ce 
Leia 
{one 
1L@so 
1 4hi 
{eke 
1946 
Liye 
1@be 
{are 
Liga 
Liie 
Lie 
L130 
L1i4e@ 
1 1 Se 
114© 
11 7@ 
119@ 
110 
L208 
L218 
122e 
{230 
1Li4e 
{ae 
1268 


CALL VYCHARCM, MN, 136, 25-h3 
CALL SOUND (-Za@,—-3, 24—-N) 
MEX T NM 
FOR M1 TO 24 

GAL AGAR CM My 22, HIN) 
CALL OEUARINN Eo oe 
TALL. SOUND ¢- 2a. 7, See NG 
NEXT WN 

TF SCLeHI THEN Lese 
AS="NEW HIGH SCORE" 

Jy 
js SF 

OSU L7ile 

Aste "OTHE (SC) 

a 

las | 4 

OSU L71S 

HI=SC 

ea THE SFACE BAR" 

= 1G 


DOSUE L71e 

AS="TO FLAY AGAIN" 

J= 18 

bse Sy 

GOSWUE Lie 

CALL. FEY (3,d0,K) 

IF J<232 THEN 1134 
CALL. CLEAF 

GOTO te 

FOR Z2=X TO A STEF ~—E 
LAL. AGHAR Se, £rR, Say 1) 
DRL. ALAA Cea, 25 Lee 12 
NEXT 

RE TURN 

CALL SOUND (L50,-3,8) 
CALL HCHAR(21,X, 128, 1) 
FOR Z=2@ TO 11 STEP ~1 
CALL HCHAR(Z+1,%, 32,1) 
ALL HCHAR(Z,X%, 128, 1 


33 


17 
1280 
{22 
LO 
{10 
1 ee) 
{228 
1340 
{350 
1248 
1278 
{280 
1298 
{ <heaea 
1441@ 
ns 
14h) 
ee) 
L450 
1 ha 
1470 
1 ee 
144.00) 
13a@ 
rae 
1S2e) 
1338 
1Le4e 
Sie 
LS oo 
a 7a 
ee a0 
LEO 
LSon 
1610 
Laie 
1430 
Loa40 
Lase@ 


Looe 


NEXT 2 

RETURN 

FOR T=1 Ta 2 

Dea 

CALL KEY(2,],E) 

AsA+ (1883) ~ (T2683) 

A=A+ (APSO) — (ACS) 

CALL HCHAR (22,D, 22,1) 
CALL HCHAR (22.8, 129, 1) 
IF (02232) +¢FRe1) THEN 1398 
FFs 

CALL SOUND (15@,—-5,@) 
IF FRE. THEN 1430 

FOR NN=1 TO 6@ 

NEXT NN 

GOTO 159@ 

IF RZ. THEN 1480 


CALL HCHAR (21,E,128, 1) 
GOTO 1598 

CALL GCHAR (R,E,Y) 

CALL HCHARCR+1,6, 32, 1) 
CALL. HCHAR(R,E, 128, 1) 
Fee 4 


IF (R=@)+(R=P-4) = THEN 1560 


CALL HOHAR CR+1,E, 32, 1) 
R24 

EF @) 

IF VeS2 THEN i596 


NEXT T 
RETURN 
CALL SOUND (1@@, 523,@) 
CALL HCHAR (FM, 22, 1) 
SCaSC+ C21-P) 
$2STRS (SC) 
Jen 
K=1e 
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Lava 
1 fea 
1490 
17ae 
L718 
1720 
y, 1) 
17 Ra 
1740 


1730 


GOSUB 1714 
FR=@ 

Re | 

GOTO 84a 

FOR NN=1 TO LEN Cag) 

CALL HCHAR (J, E+NN, ASC (SEGS (A$, NN, 1) 


NEXT NN 
RET LIF 
DATA 12,72, 22,84, 18, 67, 24, 82, 16,69, 


Loy 69 1Oy Ooy 20,05; 075 7A els 795 414 76,19, 7 


G44, 


tocar “ mores 
Py ig OF yg Litg Oe 


el eta 
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ASTORNIA 


You are the administrator of a mining colony which has been 
established on an asteroid named Astornia deep in the 
asteroid belt. Your isolated colony survives by mining 
valuable copper ore, now very rare on earth, and trading it for 
food, oxygen and essential equipment. 


You must manage the affairs of the colony so that it produces 
enough ore to survive, but you must not waste your scarce 
resources at the same time. 


You will be given a computer printout telling you all the 
information you need, including the state of your food stocks, 
amount of oxygen on hand, and cost of maintaining the 
colony per year. By mining the optimum amount of ore you 
should be able to buy sufficient food and oxygen for your 
colony to survive. Sometime during each year there may bea 
rare raid by asteroid bandits. 


Apart from the attacks by asteroid bandits, the game isn't 
based on random factors or chance. It willinvolve a great deal 
of management skill to survive for any length of time. Each 
time the game is run the price of copper ore, food units, 
oxygen units and the annual maintenance cost will be 
different. 


The variables are set up in lines 100 to 220. GOSUB 750 
displays the computer's report. Lines 270 to 360 allow you to 
mine the copper ore and then deduct certain amounts from 
your Capital and oxygen supply. Lines 390 to 530 allow you to 
buy food, adding the food bought to the present stock and 
subtracting the cost from your capital. Lines 560 to 640 allow 
you to buy oxygen and tell you how many years the current 
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stock will last for. Lines 660 to 740 subtract the annual main- 
tenance from your capital, the food needs from your food 
stocks and the oxygen needs from your oxygen supply. The 
program then jumps back to line 24@ where the next year 
begins and the whole process starts again. 


The program is ended one way or another by lines 1050 to 
1330. The last section of the program, lines 1340 to 1710 isa 
subroutine which decides what has attacked your colony and 
what damage has been caused. The attackers can range from 
a fleet of Syrian ships to Vyrilliex outworlders and as we!l as 
stealing food, oxygen and money they will usually kill a few 
Astornians. 


1©® RANDOMIZE 

28 CALL CLEAR 

28 FRINT TABCG) s"A S TOR 
44 FROIN) Tak C8} y Msnugitsisnisim strum: 
~@ PRINT sies: 

60 FOR N=1 TO gaa 

7® NEXT WN 

8@ CALL SCREEN (C11) 

So CALL SOUND (S@@,-1,@) 

Laa YR=@ 

1190 AS="THE COLONY HAS PERISHED" 

120 FE=8@+ INT ORMD KAS ) 

{28 CA=INT (7K (788+RNDKBO@) /1+INTCRNDXS) ) 
140 FO L+ INT CRND&7) 

iSO AC=2+ INT CRNDKS) 

L160 FO=2000+ TNT CRNDKSe@ ) 

17@ OX=2O@O-INT CRNDK1 Gao) 

180 OC=1+0INT CRND #7) 

190 AFP=ACKOCKS—-INT CRNDKOC) 

200 RE= 2004+ INT CRNDK AGO) 

210 FE=2+INT CRNDXS) 

228 OD S+ INT CRND KS) 

23@ CALL CLEAR 

ZAG YR VE 1 

en@ FEEFE+FE/ CS+INT CRNDK1&) )-FE/ (44INT OR 
NOX 1S) > 
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26@ GOSUB 7S@ 

270 PRINT 2: TABCS) 4 “COPPER ORE 
Y TONS" 

230 FRINT +: TABC4) 
lew 

290 FRINT sTAB(S)s "THEY USE UF"SACs; "UNIT 
ae ip 

2@@ FRINT :TARC4) 
"Ss STR CAP) 

oi INPUT & 

S20 IF BRKACL=OX THEN 352 

230 FRINT :TABRC7) 3s "NOT ENOUGH OXYGEN." 
240 GOTO 21 

250 CA=CA+BKAF 

SOO (X= OX BKAC 

278 CALL CLEAR 

38@ GOSUEB 7Ae 

a9@ PRINT +s TAB(S)s"FOU0D COSIS S™4erRetr 
Cig* PER UNIT.” 

40@ PRINT =: TAR(6) 3s "EACH FERSON NEEDS";FE 
410 FRINT : TARCI@) s"FOOD UNTTS." 

420 FRINT 2: TAR(S) 2"S"sSTRS CINT(CPCKFE) ) 3" 
EACH, "Ss STR#® CINTCPCXFEXFE) D5" FOR" 

430 PRINT :TABCI2) 3 "STATION. " 

440 PRINT =: "THIS WILL LAST" s INT CFDS CP ESF 
Eds "YEARS WITH" 

4m FRINT :TAB(C4) 4 "THE FRESENT FOFULATIO 
Nw" 

446@ PRINT = TAR(6) 3; "HOW MANY FOOD UNITS" 
470 PRINT :TABC9) s "WILL YOU BUY?" 

430 INFUT C 

490 TR (kFCo=CA THEN S20 

2H@ FRINT = TABRC7) 3 "NOT ENOUGH MONEY. " 
21@ GOTO 48a 

wae@ FDSFD+C 

woa@ CA=lA-CRFC 

c4@ CALL CLEAR 

wa GOSUB 7a 

T6@ PRINT 2 TAB(B) s "HOW MUCH OXYGEN" 

W780 PRINT = TABC9) s "WILL YOU BuUYy’?" 


H 


HOW MAN 


"WILL YOU MINE AND SEL 


"OXYGEN AND SELL FOR # 
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nese) 
iB) 


Fore 


PRINT : "CURRENT STOCKS WILL LAST FOR 


FRINT #TABCS) s INT(COX/ (ODKFE)) 3" YEAR 


s WITH THE PRESENT” 


4g 
61 
=) 
6.38 
b40 
Sea 
£40 
47) 
630 
69m 
7 OO 
71® 
7 
Foe) 
744 
7S5o 
740 
779 
7BQ 
790 
ae) 
B18 
Bie 
Be 
S ul 

B44 
Bo 
Bde 
L y 1 
672 
tt os ed 
Ecee) 


PRINT :TAB(1@):"POFULATION. " 
INPUT D 

IF DkOC=CA THEN 654 

PRINT :TA@EC7)s "NOT ENOUGH MONEY, " 
GOTO 41a 

CALL CLEAR 

IF RND<.8 THEN 48@ 

GOSUB 1346 

FD=FD-INT (FEXFE) 

CA=CA-RE-DEOC 

OX=0X+D-OD*FE 

CALL SOUND (208, 23a, 10) 

CALL SOUND (20, 24@,5) 

CALL SOUND (20, 25a, a) 

GOTO 246 

FRINT TAB(7):"COMPUTERS REFORT." 
PRINT TAB(7) ¢ "'—---—--~------- + 
PRINT #3 

IF OX<ODkFE THEN 1e@se@ 

IF FD<FEXFE THEN 1090 

IF CAL THEN 113 

IF Fe<1@ THEN 11790 

IF FE>2 THEN @5e@ 

FRINT TAB(4):"WARNING — FOFULATION I 


PRINT = TAR(S) s "NEARING EXTINCTION, " 
IF OX22x0D*kFK THEN 88 
FRINT =: TABR(4) s "WARNING — OXYGEN SUFF 


PRINT sTABCI2Z)3"IS LOW. " 
IF FDS2kPEXFkK THEN 9H 
PRINT : TABRCS) 3s "WARNING —- FOOD STOCKS 


LOW, " 


Sata 
91 


IF CAs2000 THEN 920 
PRINT : "WARNING - MONEY RUNNING LOW. 
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Fae. F 
RUPLI 
cae 
940 
RS (TN 


ca - 


RINT :TAB(4); "THERE ARE"; INT (FE) 3 "F 
Qn" 

RINT :TABR(S);"ASTORNIA IN YEAR": YR 
RINT :TABCS) s "MONEY CREDIT 1S #" 387 

TCAD) 


RINT :TAB(4). "ANNUAL MAINTENANCE =" 


PSTR CRED 


Sao - 


RINT :TABC7)—5 "OXYGEN TANES HOLD" 


O70 PRINT :TABCL1): INTCOX) s "UNTTS. " 


oa F 
Oc):" 


RINT :TAB(CZ):"OXVGEN COSTS £"; STR ¢ 
PER UNIT.” 


co@ PRINT : TGR (3) 3 "QXYGEN NEED FER FERSO 
Ne" s OD 


{ade 
ie ee ®, 
Laie 
Lae 
Lose 
1 @4hin 
Lose 
Loge 
i 

Lieve 
Loge 


Lage 


1148 
DUF I 
ijae 
1140 
11.79 
FALLE 
1180 
D() 
1190 
ESoLY 


FRINT sTAB(C4) 5, "FOOD STOCKS STAND AT 


PRINT 2:TA@B(9); "PRESS ANY KEY." 
CALL KEY O3,X,¥) 

IF ¥=@ THEN ieze 

RETURN 

FRINT TAR(4) sas 

PRINT : TAR CS): "YOU RAN OUT OF OXYGE 


PRINT :TABC1i1)s "IN YEAR": YR 

SOTO 1.28e 

FRINT TAR(C4) 1A% 

PRINT «"“FOUD SUPPLIES WERE EXHALISTE 


FRINT :TABRCLIOs "IN YEAR'S YR 

(SOTO 1286 

PRINT TAR(4) + A% 

PRINT : TARC2S)3 "THE TREASURY RAN DRY 
NG" 

FRINT = TABCIS 
GOTO Lee 
PRINT = TAR(2Z) 3s "YOUR FPORPULATION HAS 
hy" 

PRINT #¢TARCase"TO “"sSTRSc NT (eR) ye” 
YOU WANT TO" 
PRINT =: TABS) 


Set 


: "YEAR"; YR 


"COMMIT SUICIDE FPAINL. 
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12O@ PRINT =TAB(S):"NOW (1) OR AWAIT A 
aD AND" 

1210 PRINT :TAB(S):"LINGERING DEATH (2)? 
1220 INPUT B 

123 CALL CLEAR 

1240 IF Bote THEN 1279 

1250 PRINT "I HOPE YOU HAVYE CHOSEN WELL. 
1260 GOTO 279 

1270 PRINT :TABC12):"GOODRYE,. " 

1280 FOR P=1 TO 2 

1290 FOR N=® TO Sae@ STEF 16 

130@ CALL SOUND (3@O-N/2, 1194+N,@) 

L310 NEXT N 

im2@ NEXT F 

1358 STOF 

{346 J=1+INT (RNDKS) 

135 PRINT TARC2): "THE COLONY WAS ATTACK 
ED BY" 

1260 PRINT :TABCZ): 

1370 ON J GOTO 1386, 1408, 14270, 1440,1448, 
1490 

1380 PRINT "& FLEET GF SYRIAN SHIFS." 
1398 GOTO 1580 

140@ PRINT "RENEGADE EARTHLINGS. " 

1410 GOTO 1508 

1420 FRINT "MARTIAN SPACE FILOTS." 

1450 GOTO 1508 

1440 PRINT "VYRILLIEX QUTWORLDERS. " 

1450 GOTO 15a0 

1460 FRINT "A LONE SHIF, AFFARENTLY" 
1470 PRINT :TAE C3) :"UNDER ROBOT CONTROL. 
148 GOTO isee 

1490 PRINT "& FPARRALEXIAN ESCORT VESSEL" 
150@ CALL SOUND (4000, 200,a, 202, 0) 

151@ Ze1+INT (FE / (2+INT CRNDKLS))) 

L520 PRINT 2: "THERE WERE": 2: "PEOPLE FILL, 
Ep" 
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{SSQ X=SSa+INT (RNDKSSe@) 

1540 PRINT 27GB C6) 2 '8"2 STRE CX)" WORTH O 
F DAMAGE" 

L558 Y=L+INT CRND*e Soe) 

1540 W=1+INT (RNDkSOo) 

1574 PRINT :TABC2): "AND FOOD STOCKS HAVE 
FALLEN" 

1580 PRINT :TAB(IS)s"BY"sW 

1596 FD=FD-W 

14@0 IF FD>@ THEN 1620 

161@ FDH=1+INT CORND#* 5a) 

1620 Fe=FE-2Z 

163@ OX=Ox-¥ 

144@ IF OX>@ THEN 1440 

165@ OX=1+ INT CRAND#*5@) 

146@ CA=CA-X 

1470 PRINT ::TAB(9):"FPRESS ANY KEY." 
168 CALL KEY CE,x,¥) 

149@ IF ¥=@ THEN 14680 

17@® CALL CLEAR 

17160 RETURN 
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ROULETTE 


At last you have the opportunity to play one of the traditional 
casino games where you can gamble as much as you like and 
not lose a penny of your life savings. Roulette uses a wheel 
numbered from one to thirty-six plus zero and a table divided 
into squares which are also marked with these numbers, used 
for placing bets. The numbers are arranged in three rows of 
twelve. Some are red numbers and some are black. The red 
numbers are 1, 3, 5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 
32, 34 and 36. The black numbers are 2, 4, 6, 8, 10, 11, 13, 15, 
17, 20, 22, 24, 26, 28, 29, 31, 33 and 35. 


When you run the program the computer will tell you how 
many chips you have to play with. It will then ask you to place 
your bet, followed by asking you how many chips you wish 
to gamble. The wheel is then spun. When the wheel stops the 
computer will tell you if you have won or lost. The game is over 
when you lose all of your chips and creep away in disgrace. 
However, if you are clever enough to win a fortune of 1000 
chips (plus your original 100 chips) you’ll have broken the 
bank. 


You are able to bet on a wide variety of numbers and com- 
binations of numbers. The key to placing your bets is:- 
- any single number (1 to 36) 

- two adjoining numbers 

- three numbers in a row 

- six numbers in adjoining rows 

- four numbers in a square 

- first twelve numbers (1 to 12) 

- second twelve numbers (13 to 24) 

- third twelve numbers (25 to 36) 

- numbers 1 to 18 


-~IONMmMVoUOWNSY 
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J 

K 
e 
M 
N 
O 
es) 


O 


- numbers 19 to 36 

—~ twelve numbers in a horizontal row 
- two adjacent rows 

- any red number 

— any black number 

- any even number 

—- any odd number 

to quit the game. 


The computer will not allow you to bet more chips than you 
have. You may enter Q to quit the game at any time. 


Lines 30 to 200 provide the title and short display at the 
beginning of the game. Lines 260 to 410 input the required 
information and call the desired routine using ON-GOSUB. 
Lines 540 to 720 print the wheel on the screen and spin it. You 
are told whether you have won or lost by lines 730 to 830 anda 
jump is then made back to line 25@ which lets you try again. 
The sub-routines (lines 890 to 2000) work out which numbers 
you are betting on and set the payout odds. 


{a RANDOMIZE 


2 CALL. CHAR (126, "FAFFFAFFFFSFFFSF "} 
28 CALL CLEAR 

4@ CALL SCREEN(16) 

28 PRINT TABCG)s"R O UL E T T E" 


é0 FOR N=1 TO 13 

70 PRINT 

a® NEXT N 

90 Vdd 

109 W=27 

119 FOR P=1 TO 2 

120 FOR N=@ TO 6 STEF .4 


120 Xe LOKSTN CN) +14 


140 Y=10xCO0S (N) +17 


120 CALL HCHAR CV,W, 32,1) 
160 CALL HCHAR (X, ¥,42, 1) 
17) Wy 
132 W=¥Y 
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120 NEXT N 

2a NEXT F 

210 Z$=CHR$ C128) 

220 Wee" " 

230 DIM RCRA) 

240 CH=1a0 

250 CALL CLEAR 

260 PRINT TAB(S):"YOU HAVE":CH:"CHIFS, " 
270 PRINT :TA@BRC3): "LADIES AND GENTLEMEN, 


23@ PRINT #:TAB(4): "PLEASE PLACE YOUR BET 


20@ CALL KEV (3,J,E) 

BOO IF (I¢65)+(728L)<o2@ THEN 294 
Z1@ IF J=81 THEN 2e10 

320 QaJ-G4 

ZB@ FOR G=1 To 24 

S40 ECG) =-99 

50 NEXT @ 

3o@ PRINT 2 ¢ 

27@ INPUT " HOW MANY CHIFS? ":CF 
380 IF CF2CH THEN 376 


4oo FRINT 2: 
419 ON A GOSUB 890, 920, 1000, 1088,115@,12 
30,1290, 1B50, 1410, 1478, 153@,1620, 1720, 17 
90.1898, 1950 
420 PRINT ::TAB(S);"YOU HAVE BET ON THE" 
450 PRINT 2 TAR C7): "FOLLOWING NUMBERS: | 
44a PRINT 
450 FOR Pei TON 
440 LF (P1)/S<¢>INTC(P-1) /5) THEN 480 
A7® FRINT :TAECS): 
490 PRINT ECF): 
49 IF P=N THEN Sid 
SQ PRINT ", "3 
S10 NEXT FF 
ca FOR N=1 TO 4@@ 
so NEXT N 
S40 PRINT ::TAR(2):"*k THE WHEEL IS SFIN 
NING x" 
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co@ PRINT £25 

oo PRINT «TAB (lied alee 2s 252253 2s 2S 25 
Z 

27@ FOR N=1 TO 5 

380 FRINT TAR CL) s Zs Ws 2% 

a0 WNEXT WN 

600 PRINT TAB CLS) § 28s 25 25 255 25s 2S 2s 2 
+ 

610 PRINT 3s: 

62@ FOR Nel TO Sa 

6390 C=INTCRNDKS7) 

64 X= TINT CO/1@) 

é5@ CALL HCHAR (18,17, xX+468, 1) 

666 (ALL HCHAR CIS, 18,0-xX#10+498, 1) 

6£7@ CALL SOUND (200, -5,@) 

686 FOR F=1 TO N&2 

&9@ NEXT F 

7oe NEXT WN 

719 PRINT : TAB(C4) 3 "THE BALL HAS STOPFED 
ON" 

729 PRINT = TABCLIS) ¢C 

730 E= 1 

749 IF BCE) =C THEN 79 

7oO E=E+1 

7640 IF Ex 25 THEN 74 

77@ PRINT :TABC9) s "YOU HAVE LOST" 

730 GOTO 848 

79® WI=INT COD*CF) 

BO@ FRINT :TAB(CS)s "CONGRATULATIONS, YOU 
HAVE" 

S10 FRINT :sTABCS)s"WON"sWIs "CHIPS PLUS ¥ 
OLR" 

S20 FRIAT #TAR(S)4"BET OF “srs "CHIPS" 
B30 COH=CH+W I +CF 

&§40 FOR N=1 TO 400 

Ba NEXT N 

640 IF CH=® THEN 2110 

870 IF CH21100 THEN 2190 

6380 GOTO 250 

B°O@ INFUT " WHICH NUMBER? ":B¢1) 
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9a@ OD= 35 
S19 N=1 
920 RETURN 


Fe 


INPUT ™ FIRST NUMBER? "re¢1) 


940 PRINT 


ge 
94 


pa 
“eae! 


INFUT " SECOND NUMBER? ":BC(2) 
IF (ABS (BC1)-BC2))=1)+ (CARS C01) EC) 


=@ THEN 940 


970 OD=17 
93a N=s 
29 RETURN 


{age 
Joie 
La2@ 
1@ 38 
{a4e 
Lase 
Lmae 
1078 
{Be 
1@9e8 
Liao 
1116 
1126 
11238 
{140 
1150 
1148 
1170 
1198@ 
119 
1208) 
{210 
1220 
{230 
1248 
L208 
1268 
{2270 
1288 


PRINT " WHICH NUMBER IN" 
INFUT " LEFT COLUMN? "aD 

FOR E=@ TO 2 

B(E+1) =D+E 

NEXT E 

OD=11 

N= 

RETURN 

INPUT " FIRST NUMBER OF SIX? ":D 
FOR E=@ TO 5 

B(E+1) =D+E 

NEXT & 

OD=5 

Ned 

RETURN 

INPUT " FIRST NUMBER IN SQUARE? ":D 
BCL) =D 

B(2)=D+1 

B (3) =D-+3 

B(4)=D+4 

OD=8 

N=4 

RETURN 

FOR E=1 TO 12 

BCE) =E 

NEXT E 

OD=2 

N=12 

RETURN 
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1280 
Lg 
1 4oe 
1éb1@ 
1 4 
Lhe 
J “} be 
14h 
1464 
1470) 
14 8@ 
14490) 
Lae 
110 
Loe 
{Se 
1A 
LSSe 
Lodo 
17a 
Lee 
Leow 
14@8 
110 
1420 
Lose 
L140 
Lése 
Loe 
1478 


Loee 


FOR E=1 TO if 
BCE) =E+ 1 
NEXT E 

(QDs 

N=12 

RETURN 

PUR Est TO te 
Et CE) s+ 4} 
NEAT & 

(= 2 

N=1e 

RE TURN 

POR Be) TO 18 
EF CUED) sel 


ms 
=e 


RE TURIN 

FOR E=1 TO 18 

Ck) stk 13 

NEXT E 

(iL): 

N= 18 

RE TURIN 

PRINT " LOW NUMBER AT END 
INPUT ” LINE? (Ll. 2 OR 3) 
IF (D=1)+¢(D=2)+(D=3)=8@ THEN 
FOR Fo TO 1] 

B(E+])=D+ExkS 

NEAT 

OD=2 

Ne 12 


RETURN 


OF" 


ma) 


1539 


Prat ™ LOW NUMBER AT END OF” 


INPOT FIRST ROW? cil OR 
IF (Del)+(D=2)=0 THEN 1624 
FOR E=@ TO Lt 

BR(E+1) =D+3kE 
Ribt Lop SDE +] 

NEXT E 
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i 
ae 


"Eh 


ea 
ea Pa 
Loic 
Lee 
Lessa 
Liebe 
ema 
L840 
Ley. 
Lae 
Leyes 
19a 
Lo1e 
1920 
19Re 
1 4p e 
1 PE 
Lee 
iS ye 
Loe 
1 ore 
TOO 
Be Le 
ase) 
a 
oa et a) 
ALeS” 
Se 
ata bead) 
BiDoe 
Bey 7 


OD=.5 

Nai? 4 
RETURN 

RES TORE 
FOR E=1 Ta 
READ ECE) 
NEXT E 
CDs: 

N=18 
RETURN 
RESTORE 
FOR E=1 TO 
READ 

NEXT E 

FOR E=1 TO 
READ BCE: 
NEXT E 
Ost 


PE TURIN 

POR fee 10 
BEE YS) sk 
NEAT UE 
(Js t 

N=13 

RE TURN 

FOR E=1 TO 
BC (E+ 1) / 2s 
NEXT E 
QDs 1 

N=18 

RET FEM 
CALL CLEAR 
FRINT =: TAB 


FRINT : TAB 


FOR S=11@ 


os 
mnt 
tat 


18 


4 STEF 2 


=e lire a 


(4o "YOU ARE WITHDRAWING 


(D7 '°THE GAME WITH" s CHE "C 


TO 1610 STEP 2 


CALL SOUND (-300,5,0,5+20, a5 


NEXT & 
FOR Se La1e 


TG 119 STEP —2o 
49 


OEE 
ake ke) 
elag 
ae ees, 
2120 


Zt oe) 


olL4e 
2150 
2168 
2178 
2188 
a 
ae 
Ze LO 
_ s ° (7) 


a 


mA 
oatea 
eae Oy) 
£10 
2380) 


aed) 


Oe) 
(eS 
ame) 
2330 


Be one! 


2250 


aor teat teal 


DG) 
rn 7 


SEO 
rm 1) 
24a 


my tee 
Q te said fs 


meh 1) 
Ah, 


CALL SOUND (-500,5,0, $+20, a) 

NEXT & 

mt OF 

FOR N=1 TO 24 

EFRINT "YOU HAVE RUN OUT OF CHIPS... 


CALL SOUND (-36@, LL @+RNDK1@Oa, oO) 

NEXT 

FOR N=1 TO 2 

(ALL SOUND (—-SO@, LL@+RND#EL GOO, oO 

NEXT N 

S ror 

FOR N=il TO 16 

CALL SOUND (-S@o, 242,90, 294, 0) 

FRINT TABS) 2 "Yau" 

NEXT WN 

FOR Neil TO 14 

CALL. SOUND €-20@, 294,@, 350, @) 

PRINT TABCS) s "HAVE" 

MEXT N 

FOR N=1 TO 16 

CALL SOUND (-2@@, 35@,@, 349,0) 

FRINT TAR (14): "BROKEN" 

NEXT WN 

FOR Wei TO 18 

CALL. SOUND (-S0@, S49, 0, 39,0) 

PRINT TRetoh) 2 TAME” 

ME XT N 

FOR N=1 TO 10 

CALL SOUND (-30@, 392,00, 440, @) 

PRINT TABC25) 5 "BANK" 

NEXT WN 

SOF 

DATA 143,5,7,9,12,14,16,18,19, 21,25 
pO yay hs oe 

DATA oy bg Oa Oe 1 1 ee Do hg eae 


G eatin ie 
ey ay one ae or 
yea os .] she 0 4 3 Bae cones 4 ms a 
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AIR RAID 


A squadron of enemy bombers are approaching the capital 
and they will turn the buildings into rubble if you do not 
intercept them soon. Sitting in the cockpit of your fighter you 
must line the aircraft up in your sights and then watch them 
explode when they are hit by your machine gun fire. 


To pilot your fighter use keys S to bank left, D to bank right, U 
to climb and N to dive. The machine gun will fire automatically 
when the aircraft is dead in the centre of your sights. The 
game may seem alittle confusing at first as the enemy aircraft 
moves left when you move right, up when you move down and 
so on. It helps if you remember that the picture you are seeing 
on the television screen is the actual view out of the cockpit 
window. 


You must shoot down as many enemy aircraft as you can 
before the time runs out. The score attained for shooting an 
aircraft down depends on the time it takes you to do it. 
Obviously, the longer you take, the less points you score when 
you destroy it. The game features on Screen scoring and also 
has a high score routine which keeps track of the highest 
number of points scored in a single game. 


Lines 10 to 380 initiate the game, display the title and set the 
screen up. Lines 390 to 770 move the aircraft around the 
screen and subtract 10 points from the score if the aircraft is 
allowed to go off of the screen. Lines 78@ to 1060 display the 
machine gun fire and increase the score accordingly. 
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16 RANDOMIZE 

20 CALL CHAR (1293, "@28468CFFIS82906000" ) 
3@ CALL CLEAR 

40) CALL SCREEN (8S) 

aa GALL: COLURtL, &@.e2 

60 CALL COLOR (o.= se Ld 

7® FOR N= TO 7 

&2 CALL COLOR(N, 14, 1) 

9@ NEXT N 

{o@ CALL COLOR (8,2, 1) 

Li) CALL, COLOR (ie, eed 3 

{2@ HI =e 

120 AS="ATR RATD" 

14@ CALL CLEAR 

158 FOR N=1 TO 8 

140 CALL HCHAR (11,N+12,43, 1 

17@ (CALL VOHAR CS, N+ ity Lats 

18@ CALL VCHAR (L2,N+12,124, 

ioe CALL. SOUND (=50,—-5,5 2) 

208 CALL SOUND (200, oe 10) 

210 (ALL. YVOHAR CG, N+12 =s ae 

ze@ CALL VCHAR(12,N+12, 32,5) 

208 (CALL HCHAR CLI N+12, ASC CSEGS$ CAS.N, 1) 9 
Ee, 

240 NEXT N 

250 FOR N=1 TO 400 

268 MEXT WN 

27@ FOR N=1 TO 11 

280 PRINT 

2°90 CALL SOUND (-S¢, , “) 

208 CALL SOUND (208, ~ wy LE) 

218 NEXT N 

a2 TT = 99 

228 TJI=10@ 

4 Oe 

250 AS="SCORE=@ TIME=99 HI="25TRS ¢ 
Miya 

24@ FOR N&S TO 32 

37@ CALL HCHAR (24,N,A5SC (SEG$(AS,N-4,1)), 
1) 
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Bee 
aS) 
ALG) 
440 
48) 
4) 
4440) 
4o 
440) 
4.703 
ALE) 
4°90) 
Se) 
aie 
wan @) 
) 

rs Bt 
} 

a4 
rae po a) 
Sido) 
a7!) 
2630 
IP &) 
ee) 
618 
bi 
6.20) 
b4be 
Ooi 
bd 
& 7 
&&30) 
H90 
7 te) 
71 
Ti® 
738 
74O 
5 


NEXT N 
CALL HCHAR (12,146, 91,1) 

CALL HCHAR (12,17,43, 1) 

CALL HCHAR (12,18, 93,1) 

Z=RIND 

CLs —28 (22.75) -6k (22.5) — (25. 25) 

CALL COLOR(13,CL, 1) 

X=5+INT (RNDX 14) 

Y=aO+INT CRND #22) 

C=22 

Veg 

We 

TI=TI—1 

2$=STRS(TIDR" 

CALL HCHAR (24, 22, ASC (SEG$(Z#,1,1)), 4 


CALL HCHAR (24 ae rast se btx72$,2,1)),1 


CALL SQUND (10@,1271,0,156,@) 
LIF Tls@ THEN 1@ae 

CALL KEY (3,0,K) 

A= (7=78) — (J=85 

B= (j=68)-(J=83) 

Z=RND 

XeX+ (20.4) -(Z2>. 4) 48 

Z=RND 

Y=¥+(Z2°5.4)-(Z22.6) +B 

IF CX¢ 1) 4+¢X222)¢>0 THEN 7aa 
IF (Y<3)+(¥230)<¢>@ THEN 700 
CALL HCHARCV,W,C, 1) 

CALL GCHAR (X.Y,C) 

CALL HCHOR (X,Y, L2, 1) 

IF C=4% THEN 780 

GOTO 488 

CALL HCHAR(V,W, BZ, 1) 
SC=SC- 10 

SC=-—SCk (SCrO) 

AK=STRH (SOS 


CALL HCHAR (24,11, ASC (SEG$ (4%,1,1)),1 
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75@ CALL HCHAR (24, 12, ASC (SEG$(A$,2,1)),4 
) 

76@ CALL HCHAR (24, 1%, ASC (SEG$(A$,3,1)),1 
\ 

774 GOTO 420 

780 FOR N=2@2 TO 18 STEP -1. 

79@ CALL HCHAR(N, 28—-N, 47, 1) 

Gade CALL HCHAR CM, N+, 92, 1) 

S14 CALL SOUND (-5@,-5, 9) 

g20 CALL SOUND (200, —", 1) 

esa NEXT N 

g40@ FOR N=22 TO 18 STEF -1 

g5@ CALL HCHAR (NM, 28—N, 32, 1) 

G40 CALL HCHAR(N-5, S3-N, 47, 1) 

870 CALL HCHAR(N,N+6, 32, 1) 

88@ CALL HCHAR (N-S,N+1, 92, 1) 

890 CALL SOUND (~S@@, —, Z5--N) 

G@@ NEXT N 

9l@ FOR N=17 TO 13 STEF -1 

920 CALL HCHAR(N, 28-N, 32,1) 

95@ CALL HCHAR(N, N+6, 32, 1) 

940 CALL SOUND (-300,-5, S5-N) 

950 NEXT N 

960 FOR N=@ TO Be 

97@ CALL COLOR(123,CL,1) 

980 CALL COLOR (12,8, 

994 CALL SOUND (-5@@,-7,N) 

1@@e NEXT N 

1@1@ SC=SC+(1@@-(TI-TI)) 

1920 TdI=TI 

1M3O@ AS=STRE(SC)&" 

1940 CALL HCHAR (24, 11,ASC (SEGSCAS, 1,1)), 
19 

1@5@ CALL HCHAR (24, 12, ASC (SEG$(A$,.2,1)), 
1) 

1940 CALL HCHAR (24, 1%, ASC (SEGS (A$, 3,1)), 
1) 

187@ GOTO 39e 

1086 A‘="QUT OF TIME" 

129@ CALL HCHAR(V,W, 22, 1) 
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11@@ CALL HCHAR(L2, 146,32,3) 
1110 FOR N=12 To 22 
Li2@ CALL HCHAR (11,N, ASC (SEGS (4%,N-11,1) 
eae Kee 

1130 MEXT N 

{14@ CALL COLOR(i3,11,11) 

11550 CALL HCHARC9,11, te 

114@ CALL HCHAR (IS, 11, «i 
1170 CALL VOCHAR (9, 1a, ee 

118@ CALL VCHAR (9, 24,128,5) 

1190 FOR N=1 TO 3a 

120@ CALL COLOR (13,141,441) 

1210 CALL: COLOR (13,8, @ 

1220 NEXT N 

1250 FOR N=. TO 14 

1240 PRINT 

L25@ NEXT N 

1260 IF SC<HI THEN 1288 

1270 HI=SC 

1280 FRINT TAB(1@); "ANOTHER GO 7?" 
L290 PRINT 

i3@@ CALL KEY (3,0, 

1310 IF J=89 THEN 12@ 

1220 IF J<>78 THEN 13508 

L350 STOF 
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DIGIT BRAIN 


Digit Brain will test your skills of deduction. The computer 
generates a four digit number using numbers from one to 
nine. Zero is not used and no number can be used twice, so 
numbers such as 7046 and 9922 will not occur. 


The computer will ask you to guess the code. You are required 
to enter a four digit number. The computer will consider your 
guess and give you coded clues to its accuracy. Black means 
you have correctly guessed a number and it is in the right 
place. White means you have the number correct but in the 
wrong place. 


After you have had some practice at Digit Brain you may wish 
to increase the difficulty to make it a little more challenging. 
This is done quite simply by altering the number in line 540. 
The number is always one more than the number of guesses 
that you are allowed to have before the computer tells you the 
correct code. 


The four digit code is selected in lines 170 to 24@. Lines 260 to 
310 input your guess and split it up into single numbers. Lines 
330 to 520 work out how many blacks and whites you have 
scored. 


1G FOAAN DOM T Ze 

28) (ALL. CLEAF 

2 (CALL SCREEN ¢2 3 

46. AE="K DIGIT BRAIN x" 
28 FOR N=1 TO © 

40 FOR M=7 TO 13 

7M FRINT TARE Ch) 24% 

Be! NEXT M 

5 FOR M=12 TO 4 STEF —1 
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{ao 
119 
Le 
{ 73 


Teh 


de teen? A 


1 Ae) 


Se) 
Tee 
oF @ 
Bee 
Ye! 
Jeca 
41a 
4028 
43@) 
A. hi 
450) 
4.) 


A7G 


PRINT TRAE CM) : ad 

NEAT wl 

NEXT WN 

FOR N=1 TO laéee 

NEXT WN 

DIM At4),BC4) 

(ss 1 
MCLISL+ INT CRNDKS) 
ACSI ELE INT CRN KS ) 

TF ACZ)=ACLI THEN Lae 
ACA b+ INT CRMDES | 

TF At SBA CL +FCA CS) BAC eee THEN 2 
AC) =L+ INT CRNOKS) 


TF (A+ Hea CL) ie CAC SACS p+ CA CAD AC 


.“@ THEN Zoe 


De Leek ACL + Loe kA CSI + 1LOKA CE +A C4) 
MALL. CLEA: 

PRINT #¢¢ TAB 634i 3 "RUESS"*sC 

INPUT 2 

BELISINT Ck silage) 

BCS) SINT Cox -Leime@ act) fim) 

BCS) =INTCCX-La@eakeR C1) -Leexee sia fle) 
Roa TOOexh C1) -1O@gm C2) -LORR CS) 
TIF O=X THEN &7ae 

pss: 7 

Fa Besa 

FF Es=1 TO 4k 

IF ACEI. SB CEI THEN 39 

Nah} 1 

ACES) sea 

MEAT & 

FOR Fei TO 4 

IF ACF) =@ THEN 460 

FOR E=1 TO 4 

IF BRR) <A CE) THEN 4532 

ials= Al -+ 

NES fe 

NEA oP 

ACLISINT(D/ Lees 


o/ 


48a Q4¢23=INTOCD-1@@exkac1)) /1eae) 
49a QC% SINT €CD-1OOOka 61)-1e@@44 02) 
Sa Al4j7=D-1a@axaAc1)-1eekACS)-1Leka 
Bile FRINT :TABCT 1d: "YOU SCORED" 
Bh PRINT = TABCS) @Ne "BLACKS AND" y Wa "WHIT 


fee f cS uy 





T 
en et 


mu 


(l= (i+ 1 

S40 IF C¢idé THEN 266 

S50 PRINT +:TAR(2):"MY NUMBER WS "Aci 
SACP) ACE) 2Q04) | 

S40 STOP 

E70 PRINT +: TAB(S): "CONGRATULATIONS" 

SIG ERINT 2 TAR CG): YOU GOT IT Insc 

S09 FOR N=1 TO 2a | 

GOO Yd LO+RMD #4 

4140 Ye e+epok¥ dae 
42a TaO e+ enpe4ed 
£3@ CALL SOUND (-Sa,¥,4,¥,0,7,8) 
Séhkin NEXT TM } 
£5a@ END 
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REVERSI 


This game is based on an old board game popular in the latter 
half of the last century. 


It is played on aneight by eight grid. The game begins with the 
centre four locations of the grid being occupied by two of your 
playing pieces (white) and two of the computers playing 
pieces (light blue). Each player takes turns placing a piece on 
the board adjacent to one of his opponent’s pieces. Any of 
your opponent’s pieces between the piece you have just 
placed, and another of your pieces are captured. They are left 
on the board but they change colour and become yours. The 
game ends when all the grid positions are occupied or when 
neither player is able to move. The winner is the player with 
the most pieces on the board. 


At the beginning of the game the computer will ask you if you 
wish to go first. To place a playing piece on the board enter its 
required location starting with the number down the side of 
the grid followed by the number along the bottom. If you 
Cannot move enter @ for the first number. The computer will 
keep track of the score and will automatically replace 
Captured pieces with the opponent's pieces. You will find that 
your computer plays this game slowly but it will play very well. 
In fact, you will find it very hard to beat. 


Lines 620 to 940 contain the logic for the computer's moves. 
Lines 1010 to 1250 control the player's moves. Lines 1280 to 
1340 use CALL HCHAR to print up the grid pattern and keep it 
in place during the course of the game. Lines 1420 to 1580 
work out which pieces have been captured and change their 
colour accordingly. 
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1) 
on) 
ma) 
Aba 
me) 
OH 
7 
Bei 
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RANDOMIZE 
CALL CLEAR 
CALL CHAR (LSS, "SC7EFFFFFFFF7ESC") 


(WALL CHAR CLES, "OOOOORLELEOeMaaMe" 5 


CALL CHAR (136, "SC7EFFFFFFFF7ESC") 
CALL CHAR (L44, "FFA BRERA AP E7 AE" ) 
CALL CHAR (145, "PFEFFFEFFFFFFFFE") 
CALL SCREEN CLE) 


CALL COLOR (13,16,2) 


Loe CALL COLOR ¢14, 6, 2) 


119 
120 


240) 
250 
he 
270 
2Be 
290) 
3) @) 
B1@ 
320 
B30 
BAG) 
350 


CALL COLOR(15,2,1) 


PRINT TAR Cia) PLAS C144) s UR VER ST! 


FOR N&i Ta 12 

PRINT 

CALL SOUND (10@,250,@) 
NEXT WN 

FOR N=1 TO 4 

CALL COLOR (15,14, 2) 
FOR F=1 TO i5@ 

NEXT & 

CALL COLOR(15,2,1) 
FOR F=1 TQ 15@ 

NEXT F 

NEXT N 

Fis J 

DIM AC1O, 103 

FOR B=2 TO 9 

FOR C=2 TO 9 

ACH, C)=129 

NEXT C 

NEXT B 

ac3, 5) =128 
A(6,6) #128 
AC5,6) 51236 
A(6, 5) =136 


S60 CALL CLEAR 


one) 


PRINT TAB(4) 3 "DO YOU WISH TO GO 


PRINT #4 
CALL. Kie¥ ta. RY « KE.) 
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FIRS 


Aca 
4 1 @ 
428 
cs 
A hs 
Ao 
4&1 
4°? @ 
Ahicpen 
4s 
Foe 
a1 


what @) 


eh 
ae 
Boe 
ae) 
fal ss 02) 
Be 
HO 
619 
GG 
&e 
eas 
652 
6h 
b 7a 
Se 
bere 
7 AG 
718 
Pa® 
7 one) 
7 he 
Fae 
Fae 
778 
7ORO 


Cate 


7 Pe) 


TF ¢EY="6) 4+ ¢R¥=8%) =o THEN 
MALL. CLEAR 

FRINT TAB CL S)3"T HAVE 2" 
PRINT ¢ TA CL Ld YOU RAM 
FOR Nei TO & 

PR IY 

NEXT WN 

CALL HCHAR (3,135,145, 18) 
CALL HCHAR (LTS, 13,1435, 1@) 
CALL VCHAR (4, 13,145, 8) 
(TALL VOHAR C4, SS, 145,83 
FOR N=i TO & 

MALL HOHAR CS+N, 12,N+49, 13 
CALL HCOHAR C13, 1S4+N,N+45, 13 
NEXT WN 

BOSUB leew 

IF BY=89 THEN jLere 

CALL SOUND (ena, die, 2) 
Age" MY MOVE " 

GOSUB 1655 


FOR B=? TO 

FOR O22 TO 

IF ACB, C)<s12° THEN 93@ 
(2): 

FOR De-{ TO i 

FOR Ee-1 TQ t 


(asia 


GBOTQ Fea 


IF ACF+D,G6+E)< 2136 THEN 79 


(= G+ kK 
NEXT & 
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—T 
ons) oy 


7) 


Hoe NEXT D 
Bl@ IF (Be2)+ (Reo) + (Ce2)+(C29)=0 THEN 


B20 G=OkS 
620 IF (B= 3)+ (B=) +(C2=3)+(C=8) =a THEN 
(1 


E440 G=O/o 


B50 IF ((R=2)+ (Reo) oro + CC Cea) + (C8) 2 eo) 


gee THEM Gro 
Bo O=O/s 


e7@ IF ((B= 3) + (Bea) be + 0 (Cea) + (Ceo) oe) 


She? THEN 89 
630 O=/2 


S9@ ITF (Qe Hi + (=) + 0 CRND >. 3) + (Q=H) =) <> 


® THEN 930 

90a H=C) 

91 MB 

920 N=C 

930 NEXT C 

940 NEXT B 

50 IF (H=@)+ (Rea) =— 
940 IF H=@ THEN L@1e 
97@ CALL HCHAR (24, 16,M+47, 1) 

980 CALL HCHAR (24, 17,N+47, 1) 

990 GOSUB 1420 

1900 GOSUB L2ad 

191 CALL SOUND (2O@, 15a, 0) 

1@20 As="YOUR MOVE" 

1820 GOSUB 18Ze 

164 CALL KEY C3, KY, EE) 

1@5@ IF (KY<46)+ (KY >56)<¢20 THEN 1040 
196 CALL SOUND (10®, 400, a) 

1870 CALL HCHAR (24,16, EY, 1) 

1080 IF KY<>4@ THEN 1114 

1O9e Raw 

110®@ GOTO 576 

1110 R=] 

L120 Mak Y—A47 

1135@ CALL KEY (2,EY,KE) 

1140 IF Kk >® THEN 1120 


= THEN Looe 
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115@ CALL KEY(3,EY,EK) 

116@ IF (KY¢49)4(k¥256) 220 THEN 115@ 
117@ CALL SOUND (106, 60@, ) 

1180 CALL HCHAR (24, 17,EY, 1) 

119@ N=&kY~47 

1200 IF ACM,N)<>129 THEN 1018 

1210 S=134 

1290 T=129 

238 GOSUB 1424 

i240 GOSUB 12766 

1258 GOTO S7e 

i2oa Cad 

L270 Hed 

i28o@ FOR B=? Ta ¢¥ 

1290 FOR De? TO 3 

13@0 CALL HCHAR(B+2,D+12,A(B,D), 1) 
1310 C=C~(A08, D) #134) 

1320 NEXT D 

1340 NEXT B 

L350 AS=STRBCO) St" 

1360 CALL HCHAR (14, 21, ASC (SEG$(A$,1,1)), 


1278 CALL HCHAR (16,22, ASC (SEGS(AS,2,1)), 


i338 AB=STRS CH) Re" " 

1290 CALL HCHARCIG, 22, ASC (SEGS (AG, 1,19), 
Vy 

i4@@ CALL HCHAR (18, 22,AS5C (SEG$ (AG, 2,13), 
1} 

i410 RETURN 

1420 FOR Ce—-1 TO 1 

1420 FOR D=-i TO i 

L444) FM 

1450 G=N 

1460 IF ACF+C,G6+D)<55 THEN 1500 

L470 Pek +(2 

14ea0 G=G6+D 

149@ GOTO 1460 

1500 IF ACF+C, G+D)2eT THEN 1560 
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1516 
Lao 
1S 38) 
{E44 
1S5e 
{hoo 
1378 
Loe 
1590 
{1 Se 
1610 
Looe 
1&2) 
14540 
1650 
1440) 
1478 
LSou 
Lae 
1 Paw 
171@ 
{Pee 
17-38 
174i 
170 
LYS 
177! 
178 
{er ou 
i e ae 


1a 78) 
Lis4e 
Lise 
hacky 
{8460 
17 @) 


ACFE, G)=T 

TF (M=F)+(N=G)2—2 THEN 1560 
ed ala Oe 

b=G5-D 

(OTTO isle 

NEXT D 

NEAT 

RE TURN 

(l@ 

Han 

FOR Bee TO 9 

FOR D=2 TO ¢ 

el CA C8, D) = 134) 

H=H-- CF (B, D)=129) 

NEXT WD 

NEXT & 

(TALL. CLEAR 

FOR F=110 TO 216 STEF 5 
(MALL. SOUND ¢--4e@e@. Fe) 

NE 

IF Hel THEN 1772 

iP Heo TAEM 1 73¢ 

FRIMT TABC1@).°I WON: "sCst 
GOTO 1788 

PRINT TAR CS) s "YOU WON: "sHs C 
GOTO 1730 

FRINT TAR(6)—3 "IT IS A DRAW: Ba 
FOR N=i TO 5 

PRINT 

NEXT WN 

5 TOF 

CALL. HOHAR (Se, Lo, bey 2 

(TALL. HOHAR C244, 1G, 32, 22) 

FOR G=1 TO & 


CALL WHCOHAR (SE, 12+0, ASC (SEGS (A, G, 


NEXT @ 
RETURN 
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1) 


SPACE SURVIVAL 


An astronaut is missing on a space walk. You have been sent 
into orbit in the shuttle to find and rescue him. Mission control 
has narrowed his location down to an eight by eight kilometre 
cube of space. You must search this area of space and find the 
astronaut before his air runs out. You have just ten hours to 
find him. 


The computer-controlled radar on board the shuttle will help 
you find him. Unfortunately the computer has been pro- 
grammed in a hurry. The best it can do for you is to tell you the 
general direction of the lost astronaut along the three axes of 
travel. 


The computer will ask you which area of the cube you wish to 
search. Enter three numbers from one to eight in turn. The 
computer will look at this area and tell you that you have found 
the astronaut or it will give you clues to help you look again. 


Lines 220 to 310 accept your co-ordinates (D,E,F) and then 
line 340 checks these against the location of the astronaut 
(A,B,C). If they are not the same lines 370 to 490 see where the 
astronaut is in relation to you and provide the clues. Variable J 
counts the number of turns and keeps track of the astronaut’s 
oxygen supply by using a loop. 


f@ RANDOMIZE 

2 CALL. CLEAM 

2@ CALL SCREEN C1@) 

44 PRINT TABC9) : "SPACE SURVIVAL” 
a2 FRINT 

60 (TALL SOUND C1l@@@®, Lae, @) 

7@ FOR N=1 TO 608 
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ga NEXT NM 

9@ CALL. SQUND(50o, 138, ) 

10 PRINT :TARCE) ; "VOU HAVE 16 HOURS TO 
FIND" 

11@ PRINT :TAB(4); "AN ASTRONAUT LOST IN 
AN" 

120 PRINT :TABCS):"@ KILOMETRE CUBE OF § 
PACE." 

13@ A=1+INT (RND#S) 

140 Be.+ INT ORNDKE) 

1S5@ C=1+INTCRND#S) 

1a PRINT 

17@ FOR N=1 TO 160@ 

180 NEXT N 

170 FOR J=1 TO 1@ 

20@ CALL SOUND (2aa, 140,a) 

21 CALL CLEAR 

220 PRINT "WHERE DO YOU WISH TO SEARCH?" 
230 PRINT :TAB(G); "x CO-ORDINATE.." 

249 INFUT D 

250 EF (D¢i)+(D>8)<>O THEN 24@ 

260 PRINT :TAB(G);"¥ CO-ORDINATE, 

270 INFUT E 

290 IF (E<i)+(E>8)<>@ THEN 270 

29 PRINT :TABCE):"Z CO-ORDINATE. 

300 INFUT F 

S1O IF (Pei)+(F2@)<>0 THEN 300 

B20 CALL CLEAR 

3350 CALL SOUND (20, 300, @) 

S40 TF CA=D)+ (Be) + (C=F ) =< THEN 640 
280 PRINT TAB(6); "ASTRONAUT NOT THERE. " 
349 PRINT :TABCS); "HOURS OF ATR REMAININ 
Ge"; 10-d 

37@ PRINT 2: TAB(L3) 3 "MOVE: " 

380 IF A>D THEN 422 

29@ IF A=D THEN 430 

4a PRIMT :TABCLS) ; "UP" 

419 GOTO 430 

420 PRINT :TABCL4) s "DOWN" 

430 IF B=E THEN 450 
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440 PRINT + TAR C13); "ACROSS" 

45a IF C<F THEN 49@ 

440 TF Cs THEN Soa 

470 PRINT :TABC12) : "FORWARDS" 

48@ GOTO See 

400 PRINT :TABCI1): "BACKWARDS" 

Sao TF <9 THEN S3e 

S1@ PRINT 2: TAR(S) ; "DANGER... ASTRONAUTS 
DEATH" 

S20 PRINT :TABCL11) :" IMMINENT. " 

S30 FOR Nel TO Boe 

saa NEXT N 

S50 MEXT J 

fo@ CALL CLEAR 

S7@ PRINT TABC7):"YOU HAVE FAILED! !" 
S80 PRINT :TAR CS) s "ASTRONAUT OUT OF ALF. 


[90 PRINT :TAB(S):"HE WAS AT !4:B:C 
600 FOR M=l TO 8@e 

618 NEXT N 

£2 CALL SOUND (199O,11@,4,120,9) 

63o STOF 

640 FOR Nei TO 3 

640 FOR S=11@ TO Si@® STEF 2a 

640 CALL SOUND (-400,5,9,420-S, 0) 

&7a NEXT § . 

580 NEXT N 

£90 PRINT TABCF):"YOU HAVE FOUND THE" 
Foo PRINT 2 TAB C7): "ASTRONGUT. HE Hab" 
71@ PRINT :TAB(6)51@-d:"HOURS OF AIR LEF 
T 7 Wi 

720 FOR N=i TO Bae 

730 NEXT N 


7408 STOP 
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CUBIK’S RUBE 


This is a puzzle in which there is a four by four grid made up of 
sixteen coloured blocks. The completed puzzle should have 
four of the same colour blocks in each corner of the grid. This 
is how it is displayed at the beginning of the game but you are 
then asked to wait while the computer shuffles the blocks 
about. 


A prompt will then appear asking you which line you wish to 
move. Entering a number from one to four will Cause the 
relevant vertical line to scroll one space downwards. The 
block that goes off of the bottom of the grid will reappear at the 
top. Similarly, entering a number from five to eight will cause 
the relevant horizontal line to scroll one space to the right with 
the rightmost block reappearing on the left. 


Although the computer only makes twelve random moves of 
the cube to shuffle it, lines 950 to 990, you will probably have 
to make many times more moves than this to get it back again. 
When you think you have solved the puzzle press S and the 
computer will check it for you. If the puzzle is incorrect you 
will be told so and you will have to carry on shuffling the 
blocks until you get it right. This puzzle is very challenging 
and you may become frustrated at first but if you keep trying 
you will soon get the hang of it. 


Lines 490 to 900 set up the screen and tell you the correct 
position for each colour on the grid. Lines 105@ to 124@ ask 
you which line you wish to move, call the subroutine at lines 
2000 to 2140 which scrolls the relevant line, check to see if you 
have pressed key S and increment the number of moves you 
have had so far (variable MV). 
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'@ RANDOMIZE 

28) (TALL. CLE RR 

2) CALL SCREEN 416) 

40 (CALL COLOR C9, 13, 133 

oe CALL COLOR (19,3, 3) 

oe GALI COLOUR CL, ba, 18) 

70@ CALL COLOR (12,14, 14) 

mee DA GOLD CLS, Ge dd 

PO Ce CHAR CLS, PRS S oor r Pr See sire 
1@@ CALL CHAR CLES, "8HAAOOOOMOOOOOFE " ) 


L112 CALL CHAR CL S@, "FF ean aeagagoan" ) 


Li@® CALL CHAR CLAL, "@1L@1I@LOL@1lalea1ear" ) 


Cad ir 
1 “es 


144 


myeny es 
2at() 
Pye 


oo 
ahi 
els) 
Oe 
27a 
ete 
zor ee 
SA 
21a 
vasa) 
a 
Ah 
Se 
ZO 
a7 
Bo 


ee 


4b ag 


CALL 
Es 
REST 
FOR 
READ 
CALL 
NEXT 
FOR 
FEAD 
CALL. 
NEXT 
FOF 
FOR 
eae 
CALL 
NEXT 
NEXT 
CALL 
Myst 
DIM 
FOR 
FOR 


mex, 


NEXT 
FOR 

ACK, 
NEXT 
NEXT 


CHAR CLAS, 'SOReseGOReBeRege" 


CRE 

N=1 TO 27 

DEC 
HCHAR CD, E, 128,0) 
N 

N=1 TO 24 

DEC 
VCHAR (CD, E, 128,03 
N 

M=1 TO 4 
N=? TO 1é 

COLOR CLI3,N, 1) 

SOUND (180, Mk1OO4+4NK1@,@) 
N 

M 

COLOR CLS, 4, 1) 


ae 


is 


Aca, 4) 
X=1 TO 2 
Ye, TO 2 


Y=% TO 4 
Yei12 
¥ 
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4.449) 
And 
48) 
Agee 
aie) 
4h hy @ 
Are 
Aca 
47a 
pa a 1d) 
aia 
a @ 
ee 
5 Zhe) 

i) 
a Tea hd 
ae) 
Seo 
Ere) 
feageal 4) 
é1e 
oa ead 
bo 
SH Abe 
na 
Hh 
i/o 
ea 3} (") 
& 
PMG 
71ea 


Farad) 


7S 
F ALG 
7 me sy 
7 fa) ) 
779 
o 6 ) 
788 
FRO 


FOR X=3 TO 4 
F ae Ye1 TO 2 
AX, Y)=1e4 
MEL T ¥ 
FOR Y= TO 4 
ACK, Y) #120 
WEXT ¥ 
MEX T x 
CALL CLEAR 
FOR x=] TO 4b 
FOR Y=1l TO 4 
CALL HCOHAR CA+X, LaeY,A OX. 2,1) 
NEXT ¥ 
NEXT xX 
FOR N=S TO 7 
CALL HCOHAR CN, N+8, 129, 20- SE oe 
CALL HCHAR CN+9, 2O-N, is BQ, WKS —e 
MEX T NM 
FOR Mele TO 14 
MALL. VOHARCOM-&.N, 131, 24-Rpei 3 
CALL VCHAR C2Q—-N, N+, LES, NeXE-15) 
ME xT ON 
FOF Nee Tt Eis 
CALL, HCHAR TS, N-3.5.8, 4? 
MEX T MN 
FOR NeSs TO Se 
MALL HOHAR (N-44, 20,N, 13 
NEXT IM 
AS= "CUBIS RUBE" 
iz] 
=] 1 
GOSUB Lhe 
AG=@"FRESS S WHEN FLUZZLE SOLVED" 
i sec 
fixed]. 
BUISUB Tage 
AS="COLORS ARE: TOF LEFT "RCH S ¢ 
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Ses 
APG 
Tete) 
910 
CEO 
one 
She 
oo 
Feo 
270 
See 
Og 
Le 
z," 
iwie 
Lae 
Lease 
Lm 
{ee 
Lede 
{i 7 
1@3@ 
Lave 
Lime 
{ii 
1120 
1120 
11 be 
11 Se 
1140 
1170 


GOSUB 12he 


A=" TOP RIGHT RAISE § LTD 


J=18 
Km dS 
GOSUB 1250 


py pass ‘ AQT TOM LEP T SR CHR CL eb 


w= 1 
OSU Dene 


AS="BOTTOM RIGHT "&CHRS (1S 


TDG 

GOSUE 1250 

Abe "PLEASE Walt" 
Je 

a 

BOSUB like 

FOR M=1 TO i2 
Z=@1+ INT (CRAND*S) 


CALL SOUND C250, 11+ 250, 0) 


GUSUB 2oae 
NEXT M 
At="MOVES = @ BEST 


J=24 


eel 


BESUh 128) 
CALL. HOHAR Cea, Ligy See 11> 
AS="WHITCH LINE Pa" 


PE fata 


K=10 

GOSUB 1250 

CALL KEY (3,Z,E) 
IF Z=@3 THEN 1126 


IF (2£49)+(Z2256)<¢2@ THEN 


CALL HCHAR (22, 24,7, 1) 
IF 22285 THEN 115@ 

GOTO 137e 

Z2=2~48 

CALL SOUND (250, 110+ZK50, 
MVeMy +L 
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) 


"ESTRE ( 


Lace 


) 


(BS) 


1180 AS=STRECMV)E"  " 


! 
1214 GOSUE Lesa 

1200 CALL HCHAR (22, 24,32,1) 

L250 GOSUE Baa 

(240 GOTO Lage 

L250 FOR Nel TO LEN CAS) 

26@ CALL HCHAR OJ. K+N, ASC (SEG$(AS,N,1)), 


4 
1270 NEXT N 
1280 RETURN 
129O DATA 2,4, %.10,4, 3510595 By sb 4n Faby t 
442,10, 14, 2,73, 18 

00 DATA 3,1%,18,2,5,24,1,8, 24,1,4, 25,1 
2. 88,9. 6-35 a ia ee 
{81@ DATA 9,27, 1545 2G 144549, 2, 18,9,2,19 
oPy by Bt, 10, Ly BBE 14 
1220 DATA 2,15,19,2,18,19, 2,27,19,2,15,2 
4,3, 18, 24,2, 22,24 


Lae DATA Sy thy Se Oy Se By Fy Se 11, Fw Se 13a By Ay 
LiGby sia.2 s els ae ee he 
i746 DATA 6, 7,22,9,6,25,2,9,25, 2, 
Pg olay Ltey Ele Fy tS 

feo DATA lil. ga 21, bases e135 7,135.16, 7 51 
Nig ey se 6 iia yee 

1360 DATA 21,0, 15.23 ,8 

L270 At= "CHECKING" 

1380 J=2s 

LE9@ b= 1's 

i4eaca CALL HCHARCSE,11, 32,15) 

1410 (0S Lease 

1420 CALL SOUND (20a, 131,0, 262,060,523, 
L450 (Chets 1 

{440 FOR ¥=1 TO 4 

1450 FOR Y=1 TO 4 

{440 CALL GCHAR (8+K,15+Y,0) 

1470 TF @=A¢Cx%,Y) THEN 1496 

1480 Ck=0 | 

L49@ NEXT Y 
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12o@ NEXT X 

L318 ve eel THEN 1646 

1228 A=" TNCORRECT, TRY AGAIN" 
Las ee 

Lei4q bax? 

350 CALL HCHAR (22,14, 32,9) 
1268 GOSUB Lene 

im?7o FOR M=1 TO 4 

L588 FOR N11 TO 156 STEP 464 
i278 CALL SOUND (hoa,N, @) 

1400 NEXT N 

14610 NEXT M 

L420 CALL HCHAR ¢¢ Bg he sol? 
1420 GOTO ise 

1640 CALL CLEAR 

1S50 AS="CORRECT " 

1448 P2& 

1670 K=15 

1480 $05UB 1250 

16490 AG="WELL DONE, YOU DID" 
1700 I= 

i7i® k= 

1720 GOSUB 1L2ne 

iFtQ AS="IT IN "&aSTRS (MV) &" MOVES” 
1740 J=H19 

1750 K=16 

1768 GOSUE Lane 

177@ IF MV>BS THEN 1840 

178 A=" THAT IS THE BEST SO FAR" 
1790 J=14 

L8@aQ k= 

1310 GOSUB Lene 

LE82e Jessy 

ies GOTO Peau 

LO40 AS="EUT TT HAS BEEN DONE" 
1856 J=14 

1860 b=? 

19370 GOSUB 1250 

LB8@ AP="IN "ROTRBCAS)&" MOVES!" 
18¢8 J=16 
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19m 
Lode 
1 ?2e 
1oEe 
14a 
Ler) 
1940 
1 oP Fe 
1? oe 
Looe 
MAE) 
aLea 
eG 
See 
we) Abe 
a ben) 
OEE) 
Zeya 
OS 
SeISe 
1 OG 
2118 
ee et 
2130 
1 Ae 


Kad 
GOSUB 125@ 


oteee 


(oy SB hee THE SPACE BARE 
TT: Ore 


u 
jae? 


GOSUB 1S5.e 

CALL BEY tS, le) 

IF Je 232 THEN 1¢%40 
(FALL CLEAR 

GOTO Lae 

TF 2244 THEN 2ega 

CALL GCHAR CIS, 1S+2, 0) 
FOR Nell TO 9 STEF ~—1 
CALL GCHAR CN, 13+2,F3 


(TALL. HOHAR ON+1, 147 is ee: 


NEXT N 

CALL HCHAR (9, 15+2,0, 1) 
RETURN 

CALL GCHAR (4+Z,19,@) 
FOR N=1& TO 16 STEF —1 
CALL GCHAR (4+Z,N,F) 
CALL HCHAR (44+2,N+1,F, 1) 
NEXT N 

CALL HCHAR(44+2,16,G, 1) 
RETURN 
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LIFE SIMULATION 


This program simulates the life cycle of an isolated colony of 
single celled organisms. Although the cells are simple 
creatures they have evolved a highly organised society 
governed by a strict set of laws. These laws control the birth, 
growth and death of the cells from one generation to the next. 


It is possible for a cellin the interior of the colony to have up to 
eight neighbours. A cell in an outside wall can have five 
neighbours and acorner cell three neighbours. The laws state 
that a cell with two or three neighbours will survive to the next 
generation. A new cell will be born into an empty space if that 
space has three cells adjoining it. Any cell with four or more 
neighbours will die from over-population due to the competi- 
tion for food and living space. A cell with no neighbours will 
die of loneliness. 


At the start of the game you must create the first generation by 
placing cells anywhere you wish on the grid. It is a 10 by 10 
grid and there willbe acursor in the top left hand corner. If you 
press Aacell will appear where the cursor was and the cursor 
will move one space to the right. If you press the space bar the 
cursor will move but it will not place a cell in its previous 
position. Continue to do this for the rest of the grid. When the 
cursor reaches the right hand edge of the grid it will move 
down a line and reappear on the left. After the cursor has 
covered all ten rows of the grid it will disappear. You will then 
have to wait some time while the computer uses the laws to 
create the next generation. It will then be displayed on the 
screen. The computer will continue to create generation after 
generation until you press CLEAR. You may then run the 
program again if you wish to try a new pattern of cells. The 
idea for the program comes from John Conway's LIFE. 
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1m ¢. Bt a) 

20 CALL CHAR (128, "FFFFFFFFFFFFEFEF") 
30 CALL CHARCL29, "FFR1L992999999R LFF") 
4c CALL. CLEA 

ee EL IG De ae toa BUT Bik &. Tecce 

£0 PRINT TAE(1O); "GENERATION 0” 

7@ FRINT 

Ge GOSUB 410 


om k= | 
toa Z= 45 


119 CALL HCHAR(K, 2,62, 1) 

120 CALL KEY CS, 3,10) 

186 TF (J=32)+(J=65)=0 THEN 120 
14 IF J=32 THEN 19 

{SO CALL HCHAR(E, 2,129, 1) 

146 MCK—10, 2-11) =1 

179 N(k-10,Z-11)=1 

196 GOTO Boa 

190 CALL HCHAR (KE, 2,128, 1) 

200 ZaZ+d 


240 IF k=e22 THEN 260 

250 GOTO 119 

260 GHG+1 

27@ FOR Ke? TO 11 

280 FOR Z=2 TO 11 

290 C=M(K~1, eee 

See Calem (ey ZL) eM ce, 2+) 

219 Catan (ead, 2-1) 4M teri, 274M (kd, 241) 
S20 TF CMC, Z)2@)+ (Ces) + (O22) oe THEN 34 


220 Nk, 2) =o 
SO ITF (MCR Ziel ee (Ce Saye ee THEN Soe) 
sa@® NCR, Ze] 
260 NEXT Zz 
af/8 NEXT FE 
288 PRINT :TABC1@) : "GENERATION" s6 
290 (OSU +1 e 
400 GOTO 2ée 
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41@ FOR ket TO 12 

420 PRINT :TABCI®) ; 

Aaa FOR ge) TO ie 

44a MCE, 22 =N Ck, 2) 

450 TF Mtk, Z)=1 THEN 4h 
440 FRINT CHRE (Lec): 


47a (GOTO oe 

490 FRINT CHRS Ole) s 
Age MEXT 2 

Sea NEXT be. 


Sia PRINT 
ae PRINT 


See) Pee RIAN 


The following printouts give a graphic illustration of the 
development of one colony over ten generations. You can see 
how the colony gradually splits into two separate groups, 
which become quite distinct by the 2nd generation. Then, 
from generation 3 to generation 4 the lower group dies out and 
after this the remaining group expands and forms quite a 
stable pattern. Youcan experiment with different patterns and 
see which ones remain unchanged for an infinite number of 
generations, such as four cells in asquare, and which ones die 
out after only a short time, such as a few isolated cells. 


GENERATION © GENERATION 1 


00 oo 
00 00 0 


7 


GENERATION 2 GENERATION 


i 


a) 
000 00 
0 o.6U0 
00 00 0 
00 Q 00 
00 oO 
0 QO 
00 o 
GENERATION 4 GENERATION 5 
Oo og 
000. o 60 
o.6Ud 00 QO 
0 0 Oo 
000 00 
a) 
oo 
GENERATION 6 GEMERATION 7 
a) 00 
Oo 00 oo o 
00 OO 00 
Oo oO Oo 
000 o Oo 
00 00 
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GENERATION 8 GENERATION 9 


000 000) 
0 O 00 O 
0 (} 
00 oO 
000 00 0 
i) a) 


The following program is an adaptation of the first and it 
outputs all of the information to a printer, if you have one 
attached, rather than the screen. The grid size has been 
enlarged to 15 by 25 to print out a bigger colony and also the 
first generation of cells is created randomly by the computer. 
The program is very slow but it does make a nice demonstra- 
tion program for a printer. 


In order to output information to the printer a file must be 
opened using the OPEN command as inline 19. If your printer 
is attached to the computer via an RS232 interface change line 
10 to, OPEN #1:“RS232” otherwise the computer will give you 
and I/O ERROR. When you want to terminate the program 
press any key. This closes the file, line 300, and executes a 
STOP statement. 


After the program listing there is a sample printout of this 
version of the program. 


10 OREN di: "Pro" 
20 RANDOMIZE 

30 DIM MCL7, 27) NOL?, 27) 
4 Gae 

50 FOR Ke? TO 14 

L@ FOR 2=2 TO 26 

70 LF RNDD. 2 THEN 9@ 

BO NtK, Z)=1 

oc NEXT Z 

190 NEXT K 

110 PRINT #42" GENERATION a" 
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120 GOSUE Ae 

Lae POM Bee TQ 16 

14a FOR gs TO id 

Log Ghee eed eee 2 eM ies a ee 

Loe ele Ce eek ee eg ceed 

L7e CeC+h thal, 2-l Pee eed 2a Ey ee 
LB0 TF CMCK, 2) =@)+(Ces)+(le2) coe THEN Be 


io NOK, Z) =e 
2O@ IF (M¢K, Z)=1)+(C2 23) 220 THEN 220 
210 Nik, Z)=t 

220 NEXT 2 

230 NEXT K 

240 GeG+d 

250 PRINT #12" " 

ZOO FRINT #12" GENERATION':G 
270 GOSUE Sze 

260 CALL KEY (3,0,70) 

29@ IF JJg#@ THEN 12¢ 

2@@ CLOSE #1 

310 STor 

220 FOR K=1 TO 14 

330 FRINT #i:" " 

240 FOR Z=1 TO 26 

SG MC, Z)=N CK, Z) 

toe IF M(k,Z)=1 THEN 39e@ 
370 PRINT Bir" "3 

280 GOTO 4ea 

S90 PRINT di:"O"s 

400 WEXT 2 

AL® NEXT E 

420 PRINT #12" " 

ASO PRINT His" " 

440 RETURN 
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oO: Oooo 


oO 


oO oO 
000 


GEMERATION © 


oo0 0 0 oO 860 
000 0 QO 
0 00 00 00 
O 0 
oO OO O 0O O00 
OO O00 oO Oo OO 00 
OO oOo Oo 
0 me .0 
000 
0 oo 0a i 
oo0 0 00 0 
000 oO a 
0 a) 0) 
o.60C*OD O 
o 0 0 00 000 0 
GENERATION 1 
00 00 
Oo 0 Oo 000 
00000 00 
000 o00 Qa 0 
00 00 0 0 OO 
oO ooo00n 000 00 
000 000 0 000 
oO 0 
0 0000 
0} 0 0 00 
000 0 000 0 
000 0 oO 0 
0 
O00 00 00a o.0 


000 00 
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SLIMY SLITHER SUPPLIES 


This program demonstrates just how effectively your com- 
puter can handle simulation information, manipulating it 
according to ground rules laid down by the programmer. It 
allows you to experience the excitement and despair of 
running a factory in a harsh economic environment. 


The computer will provide you with a weekly balance sheet. 
This will contain all the information you require, such as the 
current week of trading, capital on hand, stock on hand, the 
current selling price of your product, the current cost of 
production and the strength of your work force and its 
production potential. By the way, the product that you are 
selling is slimy slithers which are merely trick toys. 


You must keep a close watch on the amount of capital you 
have on hand as compared to your production costs and 
wages bill. This may be the key to your success or failure as a 
factory manager. The computer will give you the opportunity 
to hire or fire staff. However, you may find that the workers 
have a strong union if you try to fire too many of them. 


You will be able to set production targets (within the limits of 
your available capital and the ability of your workers). Then 
you must wait for your sales figures. At various times you will 
have to cope with union demands for increased wages, 
suppliers putting up the price of raw materials and the occa- 
sional disaster. There will be opportunities to raise the price of 
your slimy slithers but you must be careful. Do not price them 
right out of the market place. The object of the game is to 
avoid the shame of bankruptcy and hopefully, to make a 
million dollars. The program listing is quite long but playing it 
will reward the patience required to key it in. 
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All of the variables used in the program are Set up in lines 260 
to 350. The main loop from lines 36@ to 460 calls the various 
subroutines in turn that make up the program. GOSUB 1370 
provides the printout of the factory’s status. GOSUB 1880 
controls the hiring and firing of staff, plus any union reaction 
to firing staff. GOSUB 1620 controls the manufacture of your 
product. It allows you to set a production target and tells you 
the production results. GOSUB 115@ is your sales team. It 
provides the good news or the bad news about the current 
week’s sales. The sales figures can include slimy slithers from 
your warehouse as well as the current week’s production. 
Any unsold slimy slithers are automatically placed in storage. 
GOSUB 47@ controls the “unpredictables”. This includes 
events such as union demands for pay increases, rising 
production costs and the occasional warehouse fire. 


1@ RANDOMIZE 

20 CALL CLEAR 

30 CALL SCREEN C2) 

40 PRINT TAB(S):"SLIMY SLITHER SUPPLIES" 
So FOR N=1 TO 12 

£0 PRINT 

7 NEXT N 

80 FOR M=1 TO 3 

90 FOR N=l TO 2 

190 CALL SCREEN (18—-Nxk2) 
116 FOR F="3 TO 8 

12@ CALL COLOR (F, 12+NK2, 1) 
L120 NEXT & 

140 CALL SOUND (30@,-N,@) 
i530 FOR Let TO 1ae 

16 NEXT L 

170 NEXT N 

18@ NEXT M 

190 FOR N=1 TO 3 

20@ CALL COLOR (N, 14,1) 


210 NEXT N 
Z22@ CALL COLOR(12,14,1) 
230 FOR N= TO sae 


244 NEXT WN 
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cae Re EAYVARTARLIES & # 
260 CA=hOa+ TNT CRNDKSOe ) 
2708 T= LOO+ INT CANDK See | 
208 SF= LT O+InT (RNDKS) 
278 CPeS+ INT CRND RSD 
fe TF OTe Se THEN 2&3 
S18 WR= 74+ INT ORM DD 1 eo 
L2@ Whe le+rInT (RAND SE &&) 
Sa FDS TNT ORND € SS 3 
Zhe Wks) 
ey@ gst 
fae FEM X¥EMATN LICR & x 
SP Lalla ef. 
30 GBOSUB ILS7e 
S96 (s0SWS Lee 
40 60SUR laine 
410 (OSUE 11 Se 
4520 Osi 472! 
458 (Tepe eae INT CWG aE 3 
440 TF CAtSTA 1 THEN Bere 
45@ TF (A+STSe9oG99 THEN 2210 
440 601TO Se 
47m REM ARUN RED TOTABL ES 
430 TF AND? .45 THEN Boo 
490 A=: TNT CRNMD# Le) +1 
28 CALL SOUND (See, dle, a, 117,38) 
S1l® FRINT 2: TAB CS) "UN TONS DEMAND © 
ac! FRINT =: TABCS) sSTRE CAA "HD FAY INCREAS 
Ee” 
S20 WoO INT (Leak (AG+AKWG/ 18a) ) flee 
240 FRINT : TAR CSI: "FAY FER EMPLOYEE" 
250 FRINT :TABCSI 3s "TS NOW F's STRe (WG) 
200 FOR N=] TO gee 
a7@ WEXT WN 
S@ TF RANDAL. GES THEN 7S 
ef@ CALL SOUND (hee, -7, a) 
aaa FRINT 2: TABC4) + "WAREHOUSE FIRE DESTF 
oys" 
61a PRINT :TAB(S)s "SOME GF YOUR STOCK... 
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628 FRINT : TAB CS) s "STANDBY FOR DAMAGE RE 
PORT: " 

é3@ FOR N=) TO 6aa 

S4e NEXT NM 

65a As TINT CRNDKST / 2a +1 

Goo OTST 

é7@ FRINT sTABCS) a "TOTAL STOCK DESTROYED 
Wey sp 

630 FRINT : TABCS) «As "SLIMY SLITHERS WORT 
|-4 u 

6°@ PRINT + TABCL@ 2a US" s STRECAKSF Is" RETA 
4 on 

7eOeO FOR N=1 TO Bae 

716 NEXT WN 

728 FRINT = TABC4) — "STOCK ON HAND TS NOW" 


750 FOR N=1 TO gaa 
74a NEXT WN 
7350 IF RND>.S THEN 974 
740 CALL SOUND (508, 154,0,—-5,@) 
770 PRINT 2::TAB(7):"SUPFPLIER ANNGUNCES" 
780 PRINT : TAR (4): "DRAMATIC FRICE RISE | 
pau 
790 FOR N=1 TO See 
goa NEXT MN 
B1@ A=. OS+ INT CRNDRL@@KCT/ 4) /148 
G20 At=STRE CA) 
B20 IF A@>v=1 THEN 8&o 
G4 Awe "GO Rag 
esa IF A/.ia>INT(A/. 1) THEN 878 
G40 AbaAge an 
870 PRINT :TAR(4):"THE COST OF MAKING EA 
CH" 
6a PRINT :TABCS):"SLIMY SLITHER HAS GON 
E UPS 
E90 PRINT :TAB(9):"BY $":A¢$:" EACH." 
900 FOR N=1 TO see 
910 NEXT N 
920 CT=CT+a 
950 PRINT :TAB(S);"IT NOW COSTS $":STR#¢ 
CTs" To" 
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S Zh.) 
Oe 
Fw 
970 
Sese) 
ow 
ry" 
{ene 
i 
Lee 
Se ie 
Lime 
L@s@ 
Ag 
1 eden 
Lae 
Looe 
{aye 
1 Oe 
Legs 
Liege 
es i 
{ii 
Lie 
Lise 
1140 
Lise 
11460 
t 
Live 
Lise 
1196 
1200 
{21a 
L22@ 
at 
{eae 
1244 
eee 


1) 


shee oot % 


) 


PRINT :TAB(CS); "MAKE EACH ONE." 


FOR N=i TO ae 


MEXT N 


IF RRND. 65 THEN 1146 


CALL SOUND (500, 522,0,4659,4, 784,94) 


PRINT 2: TAk C4) 3 "YOU HAVE AN OF FOR TUN 
PRINT #TAB(6)¢"TO RAISE YOUR PRICE. 
FRINT = TAB(4) s"SLIMY SLITHERS NOW & 


PRINT sTABC LS) 4"FOR Ss STRS(sF') 
FRINT 3: TARCSIs "STATE YOUR FERCENTAtS 


PRINT sTABRCS)<"FPR ICE INCREASE " 
INFUT  ¢4 

Lee 

SF=EINT (1Oak (SFP+AKSF/ 180) ) £148 

FOR Me] TO See 

NEXT WN 

PRINT #TARBC4) : "SLIMY SLITHERS WOW & 


PRINT ¢TABCl274 "FOR &":STRE (Sr) 

FOR N=) TO ee 

NEXT WN 

RET LUPIN 

REM #kXSALE KK 

PRINT #:2:TAB(S)s "STOCK ON HAND IS": 


FOR N=1 TO 8 

ALL SOUND C10@, 440, a) 

FOR F=1 TO 4@ 

NEXT F 

NEXT WN 

PRINT = "STAND BY FOR SALES REFORT.. 


FOR N=1 TO 40a 
NEXT N 
A=INT(RNDKST/ (, 3+2/1@) )+5+5x% (SF e5ae 
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Liza ae A OT THEN i2se 

70 AES y 

{ ae CALL SOUNO (Soa, aay, 2 

L2ee PRINT 2 Tae Ce) s "TOTAL SLIMY SLITrERS 
[300 PRIM sTARTI@) "SOLD. ca “FR 

Lai STeST--¢ 
one. FRIST 21a kt lt): " TNCORE FROM SALES? © 
"Ss STR CARO } 

L338 CA=CA+INT (AKSF) 

L124 FOR N=] TO gon 

{So NEXT N 

L3G@ FE TURN 

13780 REM KKFRINT CUT RX 

Loe ALL EOWMD Clee, 131.0, ctl, Wy Cha ly 
1, ea 

139O PRINT #+TAB(S) 4 "FACTORY REPORT? WEE 

Ms aE 

140 PRINT TAB (CS) p Ue eke wenn an 
téjw® FRINT sTABCS) 
"STR CCAS 

t4lse PRINT = TAB(C4) — "YOUR WAREHOUSE HOLDS 
aes 

idte FRINT 3: TABCS) 
{448 PRINT TABCLIS) s "S$" STRS(STRSF 

1450 FRINT +: TAB C4) s "THEY SELL FOR #"s STR. 

Siorpe” EACH” 

1460 PRINT = "AND COST $"sSTR#¢(CT);" EACH 
TO MARE." 

147@ FRINT =: TAB(4) 3s "WOREFORCE IS" WF; "FE 

Pte.” 

1468 PRINT + "THEIR WAGES ARE 8":STRE (WG) 
27 BAG e © 

1490 PRINT :TAB(6) 3 "THIS WEEFKS WAGE BILL 


> 
ar 


"CAFITAL GN HAND IS $ 


"SLIMY SLITHERS WORTH 


=n 


1500 FRINT :TABC1L2S) 3 "IS "3s STRSCWGRWE ) 
151@ PRINT : TABC9): "PRESS ANY KEY.” 
La2O CALL REY ta, KY, LEE) 
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15.30 
iS4e 
W 


| ona 


WEEE. 


1260 
1570 


{eee 
159° 
{oa 
1610 
1620 
HERS 
L430 
164 
1650 
14660 
145708 
14388 
1490 
1708 
i71ig 
1720) 
1730 
1740 
173 
1760 
L177 
1780 
179 
180@ 
1316 
WE: 

132 
183 
184 
185 
18360 


TF ERE=@ THEN Lie 

FRINT :TAB(6); "EACH FERSON CAN MARE 
PRINT sTAB(CS) sPD; "SLIMY SLITHERS A 
PRINT :TARC7)3 "A TOTAL QUTFUT OF" 
PRINT sTAB CG) ¢P DSF: SLIMY SL. LTE 


PRINT s£TAstest "PRESS ANY BBY. " 

CALL REY toe RY MK 

IF kE=@ THEN iS9e 

RETURN 

PRINT ¢:TABCS)3 "HOW MANY SLIMY SLIT 
Do” 

PRINT sTABt 7)? s"VYOU WISH TO MARE?" 
INPUT ME 

IF ME=0 THEN 1870 

IF MEXOTS=CA THEN 17 ed 

FRINT = TAR(6) 3s "NOT ENQUGH MONEY TO" 
PRINT : TAB CEOs "MARE THAT MANY. " 
GOTO i628 

TF MEA =FDEWE THEN 17 4b 

PRINT sTAB(6) s"NOT ENOUGH EMPLOYEES 


FRINT = TARC7) 3 "TO MAKE THAT MANY. ” 
G0TO 1628 

PRINT ¢TAB(S) "TARGET WEEK” sWks "TS" 
PRINT sTABC7)¢MEs "SLIMY SLITHERS. ” 
ME=ME- INT CRNDXME/&) 

IF MES@® THEN 1798 

ME=o 

FOR N=1 TO 4a 

NEXT N 

PRINT :TAB(6)3 "TOTAL MADE IN WEEK"; 


PRINT :TABRCIS) s "WAS"; ME 
ST=ST+MEe: 

CA=INT (CA-CT XME) 

FOR N=1 TO 8oe 

NEXT N 


88 


1870 
13ea 
1890 
YOu" 
1a 
1918 
12d 
19308 
WE 
1Lor4e 
1958 
YOu" 
Loe 
1978 
1°80 
L9G) 
ZOOQ 
212 
Ob i] 
2020 
oad a 
LOA 
SMSO 
EOS 
278 
LOGO 
'! 
aed) 
210 
Z11i@ 
HER" 
2120 
i 

an i) 
2140 
2150 
TRY 
2160 
ul 


£170 


RE TUPIN 
REM XKPEOFLEXRX 
FRINT 2: TAR CS) s "HOW MANY FEOFLE 00 


PRINT :TAB(9)s"WANT TQ HIRE?" 
INFUT 
WE=WE+A 
PRINT :TAB(S) "TOTAL WORKFORCE IS"; 


IF Aiea THEN 2040 
FRINT 2: TABCS) 3; "HOW MANY PEOFLE DO 


FRINT = TAB(C9) s; "WANT TO FIRE?" 

INPUT 

IF A=@ THEN 2060 

IF ASWE THEN 1L9e@ 

A=INT (RND*XA) +1 

FRINT : TABCS) s "UNTONS WILL ONLY ALL. 


PRINT. 2TABSS)e°YQU TO FiRE” eA 

WE WEF Fy 

FOR N=1 TO 808 

NEXT WN 

RETURN 

FOR N=1 TO 24t 

PRINT "$##RRHHHEEHHEBRANE ARUP THHRHHHHH FH 


CALL SOUND (10, -7,4) 
NEXT WN 
PRINT s2TAbsiS)e"¥YOU REPT SLIMY SLIT 


PRINT sTAR(6)3; "SUPPLIES RUNNING FOR 


FRINT :TA 
FRINT ess: 
FRINT : TA 


B(1i) Wk i" WEEES, ” 


BS) s"ENTER Y FOR ANOTHER 


0 


FRINT = TAB(6)s"N TO END THE ORDEAL. 
CALL FEY (S,KY,KE) 
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<1 Be) 
21lge 
22Oe) 
£210 

oe ca ea) 
SERA 
03 AG) 
Fitba 


mes 


raft) 
tH! 


-, 


oye 
Bo 
Fate) 
Oe) 
mo 
ye) 


eet) 


omer. 1) 


Ea THEN 2: 

SY 7S THEN 2170 

STOF 

VE = "HHH HEH HE HE HE FE HE FE HE HE HE HE HE Ht FE HEE HE HEE HE 


Eig: " He 


-ALL CLEAR 

FRINT Aa 

FRINT BS: BS 

PRINT "# YOU'VE MADE A MILLION 


FRINT BS: BS 
FRINT Ag 

FOR N=1 TO & 
FRINT 

NEXT N 

FOR N=1 TO 8He 
NEXT WN 

STOF 
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GOLD MINER 


You are an old miner who is searching for a large store of gold 
worth millions of pounds. The complex maze of narrow 
passageways makes it impossible for you to find the gold 
without your latest invention, a gold detector. Unfortunately 
the readout has not yet been perfected and may be hard to 
interpret. 


When the program is RUN the title will be displayed for some 
time while the maze, which is partly random and partly fixed, is 
set up in an array. The maze will then be displayed briefly 
before the game begins. You always Start in the bottom left 
hand corner and the gold may be in any of the other corners. 


Press N,S, EorWto move around the maze. The computer will 
only respond if the direction is clear. You may also press H at 
any time for help. This gives you another brief look at the maze 
and shows you your current position but costs you a penalty 
of 15 moves. 


Lo RESTORE 

2M RANDORITZE: 

22 DIM ACIS, 15) 

10 CALL CHAR (LS4, "PRFFFPFFFFEEFRPFE” ) 
5® CALL CHAR C128, "LBS418ORSEOR TILL") 
60 CALL CHAR (LESS, "18241 B2A1Ceastce4") 
7® CALL SCREENCI-3) 

6@ CALL CLEAR 

7@ FOR N=i TO 12 

iO@@ CALL COLOR(N, 16,1) 

Lig NEXT WN 


Jl 


12@ CALL COLOR (13,16, 1) 

130 CALL COLOR (L4, 11,1) 

140 GOSUB 1586 

150 GOSUB Sse 

160 GOSUB 58@ 

170 M=M+4 

18@ CALL CLEAR 

190 PRINT ::TABR(7):"MOVE NUMBER "3M 
200 PRINT :TAB(9)s "NORTH: "3 

219 IF A(D+1,E)=S THEN 24@ 

220 PRINT "WALL" 

250 GOTO 25e 

240 PRINT "CLEAR" 

250 PRINT :TAB(9)s "SOUTH: "s 

260 IF A(D-1,£)=S THEN 298 

27@ FRINT "WALL" 

280 GOTO Zee 

290 FRINT "CLEAR" 

300 PRINT :TARC9);"EAST: "3 

21@ IF ACD,E+1)=S THEN 348 

320 PRINT "WALL" 

230 GOTO 35e 

240 PRINT "CLEAR" 

B50 PRINT :TAB(9)s "WEST: "3 

240 IF ACD,E-1)=8$ THEN 390 

27@ FRINT "WALL" 

380 GOTO 4ae 

299 FRINT "CLEAR" 

40 FRINT ::TAB(4)3;"GOLD DETECTOR READS 
"s 100% (ABS (Z-D) +ABS (YE) ) +¥-E 

419 PRINT :TAB(S): "WHICH DIRECTION?" 
420 PRINT :TAER(4);"NORTH, SOUTH, EAST, ": 
TAB(9); "WEST, HELF. " 

430 CALL KEY (3,K,0) 

44@ IF (K=78)+(K=83) + (K=69) +(K=87)4+(K=72 
)=@ THEN 430 

450 IF (K=78)+(A(D+1,E)=X)=-2 THEN 430 
460 IF (k=83)+(A(D-1,E)=X)=-2 THEN 430 
470 IF (K=69)+(A(D,E+1)=X)=-2 THEN 4230 
48® IF (K=87)+(A(D,E-1)=X)s-2 THEN 438 
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49@ IF K<>72 THEN 52@ 
saa GOSUB ae 

510 GOTO 54a 

S20 DeD+ (K=O) -—(e=78) 

S30 E=E+(K=87)-(Kk=69) 

S40 SND=262k (K=O3) +230k (R278) +392 (E87) 
F4A4OK (E69) 

S350 CALL SOUND (—-19@,—-SND,@) 
S40 IF (Z=D)+(Y=E)=-2 THEN 1210 
S7@ GOTO 176 

3 CALL SCREEN (2) 

59@ CALL COLOR(1L, 16,2) 

6£0@ CALL CLEAR 

61@ FOR B=15 TO 1 STEP ~1 

62@ PRINT TABS): 

60 FOR C=1 TO 15 

b4@ IF ACH,C)=S THEN 478 

650 PRINT CHR#& (134): 

boo GOTO 72ze 

&é7@ IF (B=D)+(C=E)=-2 THEN 7a@ 
68a PRINT " "s 

49@ GOTO 720 

7@@ PRINT CHR (128) s 

71 CALL SOQUND(-100, 262, @) 

728 GOTO 740 

750 CALL SOUND (-58@,-5, 3@-Ck2) 
740 NEXT C 

750 PRINT 

7a® NEXT B 

77@ M=M+15 

780 FOR J=1 TO 1068 

79@ NEXT J 

800 CALL SCREEN (CL) 

81@ CALL COLOR(1,146,13) 

820 CALL CLEAR 

es@ ACD,E)=S 

840 RETURN 

6@ B= INT CRND*S) +1 

doe Z=14 

eva Y=14 
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Boo TF Bx.» 


e7a Yao 


Oo IF Be + 


91@ ge 
Sie K=1 


OG) Gun? 


S40 FOR B= 
93@ FOR (ls 


< THEN 9c 


2 THEN Feo 


1 Ta 4a 
o> Pe 


G49 ACB.C) =X 
970 IF RNDS.9 THEN 999 
930 ACB, C) = 


590 IF (Cs 


LO1e 


S++ (C14) + (B82) + (B14) =@ THEN 


1@@®@ ACB,C) =X 


1610 MEXT 
Lare NEXT 
L@s@ Ds 2 
{O4e E=2 


Late FOR Fa] 


1o5@ READ 


C 
B 


1@7@ ACH, (C) =! 


Lage NEXT 


LOI Me~ 15 


L1@0 RETURN 


ti1@ DATA 
1120 DATA 


1120 DATA 
& 

1140 DATA 
,8 

115@ DATA 
7,10 

114@ DATA 
2.12 

117@ DATA 
F142 

118 DATA 
10,12 
1190 DATA 


ert on en sar 7h oN Lost nn é. wn cot 
eo eg ag a eg 4, ee tg tg Cg lg 7 


er YS Se 2  ? CS Tt © To) 


ob. C4 Pe Gla Peal gly cg wk ta oleae wee 
Ff yag ag ohe f ya fg 7a 4 Fits oa Fe Fs 
9 Fy PO g Be FOy 7 ¢ 1S y Gs 104 5,190,488 
Ly Se hh gp gy bag etg loegats yas bly coe 
6,19,5,10,4,10,3,190,2,19,2,11, 
el Sy By) 45 G5 11 oy 1 Sy G5 15;56;,14, 
14,12, 8, 12.85 14,9, 4245 951567514 
Li Sy tia ite tig tia dis ie Peete TS 
94 


9,13, 18 

1200 DATA 13,11,125,12,13,13,13,14,14,14 
L210 CALL CLEAR 

1220 AS="KXKKKK YOU FOUND IT XK KK" 
1230 FOR N=4 TO 29 

124 CALL HCHAR (12,N, ASC (SEG$ (A$,N-3, 1)) 
1250 NEXT N 

1260 FOR N=11@ TO 32a STEF 3e 

1278 CALL SOUND (25@,N,@) 

i286 CALL SOUND (250,N,o,N+30, 8) 

1290 CALL SOUND (25@,N,@, N30, 0,N+6@,@) 
130@ NEXT N 

i31@ FRINT TAB(S):"YOU TOOK "sms" MOVES" 
1320 FOR N=1 TO See 

122@ NEXT N 

1240 FOR Net TO 2S 

1350 PRINT 

1360 NEXT N 

1274 GOTO 19 

1380 At="GOLD MINER" 

i390 FOR N=2 TO 32 

14698 CCH129 

141 IF N/2=INT(N/2) THEN 1424 

1420 CC=128 

142@ CALL HCHAR(12,N-1, 22, 1) 

144@ CALL HCHARC12,N,CC, 1) 

1450 IF (NS iE) +(N2S2) <2 THEN 1478 

146@ CALL HCHAR(CL2,N-1, ASC (SEG$ (A$, N13, 
dy 43 

147@ CALL SOUND (-200,Nk55,9) 

L480 NEXT N 

1490 CALL HCHAR (12,32,22,1) 

L300 RETURN 
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HAMADRYAD 


A hamadryad is a member of a class of nymphs in classical 
mythology who inhabits a tree and dies with it. The game 
named after this creature is a kind of mythological checkers, 
demonstrating how the game might have developed from 
different starting premises. 


Hamadryad is played on anine by eight board. The computer 
is the + signs at the top of the screen, and you are the “* signs at 
the bottom. 


The object of the game is to capture six of your opponent’s 
pieces. A piece is captured by landing one of your own pieces 
on top of it, not by jumping over it asin checkers. Pieces move 
diagonally and may be moved both forwards and backwards. 
This feature has been added so that both you and the 
computer can retreat from danger when needed. 


The computer will ask you “MOVE FROM ?? TO ??”. You then 
enter the co-ordinates of the piece you wish to move, starting 
with the number down the side of the board, followed by the 
number along the bottom. Do exactly the same for the square 
you wish to move to. 


The program uses the DATA statements in lines 1290 to 1380 
to set up the board. The lower case letters in these lines (aand 
h) are entered from the keyboard after releasing the ALPHA 
LOCK key. The variable CS is the computer’s score and the 
variable HS is the human player’s score. 
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a?) 
0 
ne) 
AG 
Ei) 
Ga 
7a 
ie 
Ga 


1o® 
{198 
112 
10 
146 
13a 
1d 
17 
18e 
Loe 
Ow 
Zig 
20) 


“EG 


" “AG 4) 
2550 
248 


ony 


z/@ 
fe 28 “ 
290) 
AG) 
21a 


~ Rr 3) 


me @) 
44) 
dG) 
148 


RANDOMIZE 

CALL CLEAR 
CALL COLOR (2,5, 14) 

CALL COLOR (9,2, 2) 
CALL COLOR (1@,14,16) 

DIM S#$C12, 13) 
FRINT TABCL1):"HAMADRYAD" 
PRINT re: 
FOR A=1 TO 10 

FRINT TABCL@) s 

READ Bt 

FOR Bet TO it 

S$ (A,B) =GEG$ (BS, B, 1) 
PRINT S8CA,ED 3 

NEXT B 

FRINT 

NEXT ¢ 

PRINT 

CS=a 

HiS=) 

PRINT :TAR(7); "MOVE FROM 
PRINT 3 

FRINT :TAB(1@) 3 "COMPUTER: 
PRINT 2 TAB CL2) : "HUMAN: @" 
GOTO 32e 

GOSUB Leave 

IF CS<>6 THEN 32@ 

CALL CLEAR 


PRINT TAB(Li)g"2>>T WINGS 


PRINT 2: 

oo 

(TALL. WHCHAR C17, i a yoo 4 sed 
CALL. HORARCL 7. fay t-o5 2} 
Kiss 1 

GBOSUIB Live 

A= X—- 463 


S78) ks 20) 


2638 


GOSUB L1%e 


390 B= xX-46 


ing 


be el 


wtiee toad 
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a" 


TR" 


44@ (OSU 1196 

428 (= X-48 

ASQ fis 

440 60SUB Lice 

AAS @) Ds Ab ES 

440 TF (G85 ¢8-C)=1)+ (ORS (8-Di=1l)a2-2 THE 

N 2 

470 TF (SéCA+1, Bri cee") +058 0C4+1, O41) =" 

E")2>@ THEN 220 

498 HSsHS—- (Sb¢C+), D+) pate) 

400 Seb (A+), Bed de oh 

Hee SECT, Oder" 

BOSE 1La7e 

IF HS<2e& THEN &7@ 

CALL. CLEAR 

eda FRINT TAR(S) ">>> YOU WINK Sa" 

BQ RPRINT ss: 

E4Se STOP 

7H gies KR! 

S80 GOSUBR 79a 

9 TF Floesl THEN &2e@ 

SH Asa yt 

610 GOSUE 7oe 

é£2@ TF G=0 THEN 414 

Oot Eley ies 

é4he (Coelo- (S$ ¢E+G,F +H) =" ke") 

{Be Set EL, oo a ae 
x 
fel 





ae! “4? 

awe) 1S 

é50 GOSUB 14a 
G90 Xa kad? 

FOO hele 

710 GOSUB Lite 
7RO XeE+G+4 7 


tay te oe 2 swe PIES 
faa {) [ess ey ei 


740 GOSUB Ls4a 
Peat XP At he 
76O@ heed 

77@ GOSUB 1L24e 
73@ GOTO 26a 


bdo 
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FRG Eat? 
Gag Fx 
12 Ged 

MOG fed) 

BO FL ma 

40 IF S$tE,F)<22"+" THEN Laie 
350 TE S8CE+1,F +1) 22a THEN 8&2 
G60 Gel 

70 Hex 

Ga IF S$(E+i,F-1)<2Ae THEN 919 
BOG (=f 

GOO H=—1 

Gl@ IF S$(E-1,F+1)<¢2A¢ THEN 940 
920 Ga~ 1 

oma Hed 


O40 IF S$(E-1,F-1)<2Ae THEN 97a 


cs 
we 


mm 


~ 
it 
we 


om 


~ 


OG) Cy J 

$408 He] 

Qo7a@ IF G=#@® THEN 1a1a 
990 Fle] 
S90 TF (Q$="K")+(RNDS. 1) o>@ THEN 1068 
Lae ae 

1@10 E=xE+] 

1a2e@ IF EL. THEN Lae 

Lazo Emy 
L@4ey FoF 

1ase@ IF Feit THEN 83@ 

1040 RETURN 

1©70@ CALL SQUND(1a@@, 448, @) 

1986 CALL SOUND ¢10@, 294, @) 

i@ea CALL SOUND (10@, 494, 0) 

11@@ CALL SOUND ¢1a@, 33, @) 

i11@ FOR G=2 To 

1120 FOR Be? TO 1a 

1130 CALL HCHAR (A+4, 11+B, ASC (S$(48,B)),41) 
1146 NEXT & 
1150 NEXT A 

116@ CALL HOHAR (21,22, 48+C5, 1) 
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1170 CALL HOHAR C23, 21, 46+HS, 1) 
1180 RETURN 

119°@ CALL FEY CS, %,KE) 

Lee IF (Xf 49) 40X27) 2 20 THEN Live 
1210 IF X¥<>57 THEN 124 
1220 IF Fk=1° THEN Live 
1250 TF B25 THEN Live 
1240 CALL SOUND (148, 784, @) 
1250 CALL HCOHARCL7,E x, 1) 
1268 CALL FEY (3,EY,EE) 
1270 ITF EES t@ THEN 1260 
12280 RETURN 

1290 DATA " L22456789 " 
1380 DATA "l+tatatratrari" 
13180 DATA "Batatratatrai” 
1220 DATA "St+atatratata" 
1330 DATA "4ah ahahaha " 
1246 DATA "Shahahahahs" 
1358 DATA "Gakakakakaés" 
1360 DATA "7kKakakakak?" 
1370 DATA "BakakakaxXat}" 
1380 DATA " 12S23456789 " 
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LUNAR DESCENT 


Do you have the skill to become the first spoaceperson tolanda 
spacecraft on the surface of Mars? Many have tried, none have 
succeeded. 


Your Onboard computer will keep you informed of your 
progress. It will monitor your descent and provide you with 
details of fuel remaining, your height above the surface, rate 
of fall and your time in flight. The computer will also warn you 
if the unthinkable should happen, and a problem develop. By 
entering the amount of thrust required you can manoeuvre 
your craft down to a soft landing. However, if you misjudge 
your rate of fall... 


The range of thrust available is from -5@ to 50. The negative 
numbers provide thrust against gravity. The positive numbers 
provide thrust towards the surface. It is possible to make your 
craft ascend again if you apply enough negative thrust. 


The main loop from lines 180 to 570 displays the various 
information on the screen and inputs the amount of thrust you 
wish to apply and the amount of time which you wish to apply 
it for. The crash is performed by lines 580 to 660 and the 
landing from lines 67@ to 720. Lines 730 to 1110 tell you if 
there is a malfunction and, when you enter the access code, 
tell you exactly what the problem is. 


1@ RANDOMIZE 


Zi) M=: 
3 Ts: 
4g) Sag 


Sa) [qe ee) 


6@ Feoaa/ (1+INT CRND&S) ) 
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7 (Ve-1? 

t@ bed 

Q@ (ALL CLEAR 

t@a FRINT TAR (CS), "WELCOME TO LUNAR DESCE 
eg 

L1@ FRINYT TAP Cars “YOUR MIiSslON: ro PILG 
TY JAS” 

ime PRINT :TABCSZI Sg "FIRST MARS LANDING CR 
AFT." 

Loo PRINT ¢:7TABCLid s *G00D LUCK. ” 

1406 FOR Nel TO Lage 

122 NEXT WN 

140 (CALL. CLA 

170@ GOTO 420 

190 PRINT :TABC4) s"RPOSTTIVE NUMBERS TOWA 
Poke 

L°@ FRINT + TABRCS) s "SURFACE, NEGATIVE NUM 
BES 

290 FRINT = TABC7) s "AWAY FROM SURFACE. " 

ae eke SUNIL . 

Ze8 TPF (24 -30)4(2 250) <4 270 THEN 360 

228 PRINT = TAR C4) s "FOR HOW LONG’? SECOND 
cy 

240 INFUT E 

au TF Exod THEN 24a 

26@ CALL CLEAR 

278 PRINT te TABtliys "THRUST %s 2 

noe) PRINT = TAR?) 2 "FOR" ste "SECONDS. ” 

290 FOR Nei TO 7a 

208 NEXT WN 

S10 CALL CLEAR 

228 TS T+e 

S28 SHS+lLe+AkE RINT (C241) 7B) 

S40 TF g2@ THEN 34e 

250 F=F-SKEKABS (Ze CL+ INT CRNOXS) 41) 

SOO HeH--E ER CS+ 1+ INT CRND ES) ) 

2/7@ IF Fie THEN S3@ 

2B@ TF CHS1@0)+ CHG) + (95540) =0@ THEN 67) 
S9@ TF His THEN See 

40@ TF CRNDS Lt eMe ee) ae THEN 428 
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410 GOSUB FS 

4°20 CALL SOUND ¢1eae, fom, a 

409 CALL SOUND (1a, ae, 3 

44h (ALL. SOUND cea, Beha, cd 

458 PRINT 2: TABCS) s "HEIGHT ABOVE SURFACE 
aM ae 

440 TF Q=—1 7 THEN Sea 

470 (etl 1-INT CRND #1 ee } 

4909 TF G8 THEN S&e 

490@ FIINT : TAs cle): "ATR LEP Ts "ss 

20@ PRINT :TABRCS) s "RATE OF FALL "3S 

S18 TF Bet THEN S4be 

cae@ FRINT = TARCF is "W A FR MN TON G" 

Jag FRIN)T ¢ Tasco) se "THRUST ERAT I” 

740 PRINT sTABCS) s "ENERGY LEFT: “sF 

age PRINT 2TAbteie" TINE IM PaiGhTs "37 
00 FRINT 2:2 TAB(S) 3s "THRUST? (-5a TO 5@) 
S78 GOTO 180 

Se CALL CLES 

S9a FRINT TABC7) s "RRR C RF A S H RRR" 

600 CALL SOUND (Lo@e,-? a 

610 IF (Gh>ei+¢G=—-17) <> THEN }38 

620 PRINT «TAB CS) "AIR SUPPLY EXHAUSTED 
yu 

&é50 IF Fo THEN 68a 

oo FRINT +: TAB C7) s "ENERGY EXHAUSTED! !" 
65@ FRINT =::TABC7): "HIT SURFACE AT"; ABS ¢ 
S) 

644 STOP 

6708 CALL CLEA 

630 FRINT TABC4) 3 "ec4 FERFECT LANDING 
690 PRINT £2: TABC7) s "FINAL, VELOCITY”: ABS < 
6) 

7O8O CALL SOUND (1e@ee, 40a, 0) 

71@ CALL SOUND (1OO@, SOO, a, Sho, o) 

728 STOP 

720 CALL CLEAF 

740 M=M+1 
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ves) 
7 4® 
77 
7B 
790 
BOC 
G1 
B28 
Se 
res ad) 
aaa) 
Boe 
a7 e 
{343 @) 
ESP 
Sie) ee) 
910 
2 
Oe) 
aed a 
95) 
940 
97% 
VE3G) 
ove 
1oiae 
jo1e 
Rift" 
Lae 
1@3@ 
Loge 
1@Se@ 
10460 
Lore 
BLE. 
148 
Lage 
110 
Loa” 
111 


(be + INT CRONE) # 1) 

FOR YV=i TO 4 

FRINT sTABCS) s "HH DAN G E R HHH" 
NEXT V 

FRINT 2: TABS) 3s "MISSION CONTROL, " 
PRINT : TAR C7) s "WE HAVE A FROBLEM. " 
FOR N=1 TO Sea 

NEXT WN 

CALL CLEAF 

FOR NW) TO le 

CALL SOUND (1@o, Li@+RNDkK4aG, @) 

FRINT ss TAB Cl+FRND# 160 5 UMALPUNOT TON" 
CALL SOUND (1@0, SlLO@+kNDk40qa, 2) 

NEXT NN 

CALL. CLEAR 

FRINT TABC7) s "USE ACCESS CODE"sU 
PRINT + TAR CLI@) a "FOR DETAILS. " 

INFWUT V 

CAL. (CLEA 

TF Uso THEN Seu 

As d+ TINT CRINDD 2 ) 

TF Q=-17 THEN Fae 

fysse i 

IF Bj THEN Lewes 

== 1 

OM A GOSUB 1440, 1890 

FRINT ::TABCS) :"FRESS ENTER TO RETU 


PRINT ¢TRB<ilds *TO FLIGHT. © 

INFUT Ve 

CALL CLEAR 

RETURN 

GQ=INTOCRND*AL9) +101 

FRINT : TAB C4) s "OXYGEN METER UNRELTA 
RE TURN 

BR=B+2+INT (RNDKS) 

PRINT 2: TABC4) 3 "THRUST CONTROL ERRAT 


RE TURN 
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FLIPPA 


This is a simple little puzzle which can cause a great deal of 
thought and frustration. The computer places nine squares on 
a three by three grid. These squares are randomly coloured 
black or white. The object of the game is to finish with a white 
square in the centre (position 5) and black squares in the eight 
outside positions. This is achieved by ‘flipping’ black squares 
to make white squares. You are not allowed to flip over white 
squares. 


Just to make it more interesting, when you flip acorner square 
the computer flips the three adjoining squares. Flipping the 
square in the centre of one of the four outside rows also flips 
the two squares next to it. Flipping the centre square flips the 
four squares in the middle of the outside rows. 


Lines 220 to 280 randomly make the squares either black or 
white. Lines 300 to 340 check to see if the puzzle is correct. 
Lines 350 to 43@ display the number of the move that you are 
on using CALL HCHAR so that the display remains static. 
When you press a key from one to nine line 590 goes to the 
corresponding lines in the program that flip the correct 
squares. 


1@ RANDOMIZE 

peo CALL. CHART 1 26, "FPPERFEREPEPFEREP” > 
=e CALL CHAR Cl30, “FPRPEPECEFFPEFPE 3 
44 CALL SCREEN (14) 

28 FOR N=1 TO 8 

60 CALL. COLOR‘(N, 12,1) 

7@ MEXT N 

SO CALL COLOR (13,2, 1) 

9@ CALL COLOR (14,16,1) 

1@@ CALL CLEAR 
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119 PRINT TAag¢9): "MOVE NUMBER: " 
{2a FOR N=1i TO S 

120 PRINT 

isk NEXT W 

Lao FOR Neb TO Le STEF 

16a FOR Feit TO S 

178 CALL HOHAR OM, Ste a, bebe hae 23 
{83a NEXT F 

toa NEXT WN 

S20 DIM Ati) ,Ft4) 

L1G Mee 

228 Q=126 

S38 Xe LS} 

24@ FOR C=1 TO 9 

290 ACI) =] 

260 TF AND!.S THEN 250 

27M ACO) eX 

230 NEXT © 

290 GOSUB See 

Boe N=e 

S16 FOR Csi TO 

hee N=eN-tAcCi=x3 

S30 NEXT C 

Téa TF (N=])4+¢A 05) =X)=-S THEN lease 
Se PtpT+ 1 

2468 AS=STRECM) ER" " 

370 C=sASC CSEG8(A$,1,1)) 

2590 D=ASC (SEG#(AG, 2,1)) 

S90 E=AST (SEG (a8, 2. 1)) 

4o0 CALL HCHAR(13,223,C,1) 

410 CALL HCHAR CIE, 24,0, 13 

420 CALL HCHAR(15,25,6,1) 

430 CALL SOUND (1a0, 54a, ) 

44@ CALL KEY (2,EY,EE) 

45@ TF CEY< 49) + (RK YoS7)<¢2e@ THEN 4442 
440 CALL SOQUND(19@,114,0) 

470 N=ky-46 

430 GOSUB 540 

49@ (0TO 29 

50@ FOR N=4 TO 1@ STEF 3 
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ey ,1 


La BA 


ved ade 


575 


sad ree 


we! = dh a) 


volved 


Frey te) 
ey wa (7) 
Et3@ 


Ecp ey 


FOR Feit TO 3 

CALL HCHAR CN, 17+FRS,4 
NEXT F 

NEXT WN 

RETURN 

IF ACN) =X THEN oo 
FCS) = 1a 

F (44) 10 


ON N GOTO 600,640,676, 


@, 840, 890 


biog 
61 
boo 

6.3 
649 

ase 
bdo 
678) 
46038 
eo Ad 
Fag 
Fig 


72a 


7 3G 
7b 
Fe 
Foo 
77! 
7 
7 3e) 
eg) 
31 
G28 
fp 2) 
G4. e 
Se 
Bdot) 
7 


SE3e) 


39 


Fli)=2 
FOR) 4 
FCS) 23 
GOTO g2e 
FCL)=4 
F C2) 3 


GOTQ Fae 
aa ee 


Fé on mek 


Fos pad 
GOTQ 26 
ae ee 
Fi2)=7 
fa] 1a ae 
Fiilj)=2 


E (2) 24 
FOR) = 


FC ap) eg} 
GOTO Fi 
a ee 
Fem ag 
GOTO Fie 
Fc) =4 
Fc? 
FS) =8 
GOTO Fase 
Fi_l)=?7 
Fog) ced 
GOTO Fie 
Fee i) 
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710, 


tP+ (N44) 


Ls 


740, 


io Wea =o 
730 


4,82 


43 


fae FCs) =h 

Fig FP C3S)s¢ 

92@ FOR G=1 TO 4 

Ga IP AC (6) ie THEN Fee 
Sée ACF 1G) ) =f 

958 GOTO ‘7a 

S60 ACF (G)) =X 

97@ NEXT (s 

FSO ACM) =X 

99 RESTLUPIN 

iwee CALL CLEAR 

1910 PRINT TAB(G)s"¥YOU SOLVED IT IN Ss 
L@2@ FOR N=1 TO 11 

iso PRINT 

1@40 NEXT 

{aSe@ CALL SOUND (4@@, 242, 8) 
1960 (TALL SOUND (40a, 247, @) 
{o78 CALL SOUND (4@@, 294, 2) 
198® (TALL SOUND (1L@@e@, 262,83 
1Aa90a@ END 
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STAR PATROL 


You and your trusty computer are on star patrol in the vast 
regions of space. Alien beings are penetrating your section of 
the galaxy and it is your job to find and destroy them. 


You have a limited amount of energy available and your 
computer will keep you informed of your energy level. Your 
space ship is equipped with long range and short range 
scanners to help you search. Short range scanners will tell 
you if alien ships are nearby but they won't tell you in which 
direction. The long range scanner will give you a positive or 
negative reading for a square two squares away from youina 
specified direction. Both types of scanners use up precious 
energy. Long range scanning uses more energy than short 
range scanning. 


An alien ship will only show up on the screen when it has been 
destroyed. If you hit a ship with your fire it will appear as a 
white square. If you fire your gun and miss an X will appear in 
the square that you aimed at. Your ship is shown as a white 
triangle. Any attempt to move your ship through a square 
occupied by an alien ship which has not yet been destroyed 
will result in a collision. 


Your computer will give you a list of instructions telling you 
how to move your ship, use your scanners and fire your guns. 
Short range scanners become inoperable in the outside edges 
of the grid and long range scanners become inoperable froma 
square just before the edge. 


Lines 250 to 30@ set up the galaxy and place the alien ships in 
random positions. GOSUB 16990 in line 41@ draws the galaxy 
on the screen. The main loop is from lines 42@ to 490 and this 
displays the energy you have left and inputs your command. 
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One of three subroutines is then called which will either scan, 
move or fire. The scan routine is from lines 50@ to 880 and this 
will perform along or short scan. The move routine is from 
lines 898 to 105@ and this will move the ship in the direction of 
your choice. It will then call the routine starting at line 1690 
which redraws the galaxy on the screen. If your ship has 
collided with an enemy ship there will be a spectacular display 
and the game will end. The fire routine is from lines 1060 to 
1370 and again you must enter a specified direction in which 
you wish to fire. You will be told if you hit or miss and you will 
also be told if the enemy decides to fire back. Taking a direct 
hit from the enemy could use up a lot of your energy. Lines 
1380 to 1500 end the program if you have run out of energy 
and give you your command rating for the mission. Your 
position is worked out and displayed by lines 184@ to 2010 and 
you may be at any one of seven stars in the galaxy. 


1 RANDOMIZE 
20 CALL CLEAR 


20 CALL CHAR (128, "@®@@@@COEOFBFEFF") 
4® CALL CHAR (129, "@O7E4242042497E00") 
SQ CALL CHAR (130, "@AGGOO181GEHaaaG") 


46® CALL COLOR(13, 16,2) 

7 CALL SCREEN (8) 

80 Ab="STAR PATROL" 

90 FOR N=2 TO 10 STEP 2 

10 FRINT : TAB C3+N) sSEG$ (A$,N/2, 1) 3 TABCE 
7—N) :SEGS$ (AS, 12-N/2Z, 1) 

110 NEXT WN 

120 PRINT :TAB(1IS) :"F" 

130 FOR N=? TO 16 STEP 2 

14@ PRINT :TABCLS—-N) :SEG$(AS,46-N/2,1)3TA 
BCLS+N) : SEG COAG, GtN/ 2, 1) 

150 NEXT N 

160 RINT 2: 

170 FOR N=1 TO 40@ 

18@ NEXT N 

194 CALL SCREEN(S) 

nad FOR N=1l TO & 
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Z1@ CALL COLOR(N,&, 1) 

mod NEXT N 

o3@ FOR N=1 TO 4e@ 

oda MEXT N 

25@ DIM A(1@,10),B¢1@, 19) 
260 FOR Nei TO 15 

27@ X=1+INT(RNDKL®@) 

290 Y=siL+ INT CRND#L®) 

SO ACX,Y) = 

soo NEXT MN 

10 C=5 

S20 Dee 

230 ACC, D) =o 

340 BCC, D)=2 

Z5@ Hea 

360 AL=e 

27@ Z$="RUSDORAN" 

380 E= 2500 

29@ CALL SOUND (500, 250, a) 
460 CALL CLEAR 

410 GOSUB 1498 

420 PRINT ::TAB(4): "REMAINING ENERGY": IN 


—i 
7 


430 IF E<i THEN 1380 

440 IF AL=@ THEN 468 

450 PRINT :TAB (C12); "TALLY"; AL 

460 PRINT :TAB(G);"1-SCAN 2-MOVE 3-F IRE" 
470 INPUT & 

490 ON K GOSUB 50@, 890, 1060 

49 GOTO 42 

Fao PRINT 2 "SCANNER: SHORT (1) OR LONG(2)? 
Fi INFUT 

S20 IF (Ksd)+(kK=2)=@ THEN 510 

S30 TF (eel) +¢ (CH 1@) + (D210) <2 >@)2>—2 THEN 
570 


o4@ PRINT : TAR(46) 4 "SHORT RANGE SCAN NOT" 


111 


SO PRINT os TAE C4) 3 "POSSTBLE IN THIS SECT 
OR" 
2460 GOTO Soo 
ae7@ ITF (Rea) +0¢C re) + (De) obra) ch THEN 6 
1) 
£80 FRINT =: "LONG RANGE SCAN NOT FOSSIBLE 
“90 FRINT + TABCS) s"IN THIS SECTOR" 
6@@ GOTO oe 
61@ Ese Lake 
G20 TR kee THEN 7a 
650 Fe (ACC+1, DHL + (ACC+1, Det =1)4+(A(C+l 
Dede hd CAO, Ded) eh) 
640 Fee (ACI, DEL HL) +(ACC-1, 0D) =1)+(ACC-1 
Or Le Le CACI-1,D-1)=1) 
650 IF F=@ THEN 46588 
660 FRINT + TAR C9) s 73" NEAR" 
&70@ GOTO Boa 
600 FRINT :TABC?)s "SCAN NEGATIVE" 
649@ GOTO Hoe 
700 PRINT ++ TABR(S) s "DIRECTION: N,S,E,W 7" 
710 INFUT A 
7ie® £20 
730 IF (AS="N")+4+CACC-2,D) =1)<4>-2 THEN 7S 
() 
740 Zed 
735@ TF (AS="S")+(ACC+S, Dy =L)<¢e-2 THEN 77 
() 
7HO 21 
770 ITF (AS="E")+ CACC, D+S)=1) 25-2 THEN 79 
(i) 
730 Z=1 
79@ TF CAG="W")+(ACC, D-S)=1)45-2 THEN 81 
() 
Boe Zt 
B10 FRINT :TAB(C4S) s "SCANNER IS: "ss 
GO TE Zee THEN 44a 
BO PRINT "FPOSTTIVE" 
4a TRF Ze) THEN 84@ 
BO PRINT "NEGATIVE" 
HOO FOR Ned TO ea 
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a7@ NEXT N 

880 RETURN 

e7a E=E-s5@ 

Qa@ ECC, D) =H 

C19 PRINT :TAB(4):"DIRECTION? (N,S,E,W)" 
920 INPUT ag 

93@ C=l+ (AS="N")-(AS="S") 

940 Cale (lei) —¢C2d) 

950 D=D+ (Ag="W") ~ (AS="E") 

968 D=D+(D=11)— (D=@) 

970 CALL SOUND (300, 250, @) 

990 PRINT :TAB(C9): "LOCATION sC:D 
990 FOR N=1 TO saa 

Loae NEXT N 

1210 IF ACC,D)=1 THEN 1519 

1920 H=BCC, D) 

1@3@ Bt(C,D)=2 

194 GOSUE 1L49e 

1250 RETURN 

1940 G=C 

1a7@ F=D 

1@@@ PRINT :TABCE)s"DIRECTION OF FIRE N, 
SEW?" 

189 INPUT Ag 

1100 G=G+ (as="N")~ (age "guy 

1410 G=G+(G=11)-—(G=0) 

L120 Pah + (Ase "Wl" ) — (Age EN) 

1430 FeF+(F=11)—(F=0) 

1140 E=E-100 

1150 IF A(G,F)< 1 THEN 1210 

116 PRINT :TARCS):"YOU HIT THE ":Z%s" 
HIF." 

1178 AL=AL+1 

1180 A(G,F)=4 

1190 BCG, F)s4 

12@0 GOTO 13546 

1210 BCG,F)=3 

1220 PRINT :TABCi1):"YOU MISSED" 
1230 FOR N=L TO Geo 

1240 NEXT N 
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1227 
129 
Lge 
13a 
pau 
L213 
Lie 
1 
1 34e 
{Se 
1 3o@ 
Lo 7 
1 See 
Layee 
eo" 
1 heres 
141 
1 4h 2e 
ND" 
14h ae 
i 

1 44 
144e 
i“bow 
Lebo 
1 hie 
Loe 
Loo 
tSie 
Lae) 
eas) 
1544 
LAS 
1L5ae 
P70 
LS8o 
Lee 
1d @e 


Peat) STARCF 2 S° THE. “a oes" ARE” 


PRINT 2: TABt?) ¢ "SHOOTING Beck t ’ 

FOR N=1 TO Sa 

MEX T WN 

IP ANDS. oS THEN 15.20 

PRINT #¢TAB(S) ¢"°THE ENEMY HAS HIT Liss 


E=E~ 1 Qa xXRND 

(SQ0TO 1548 

PRINT ¢TABcoe ee" THEY PLSskD US” 

FOR N=1 TO See 

NEXT WN 

GOSUE 169% 

RETURN 

ALL CLEAR 

FRINT :TAB(S) s "ENERGY BANES EXHAUST 


PRINT s+ TAB(C4) s "YOU DESTROYED"; AL; 2% 
PRINT ¢TAB(13) 5 “SHIPS, ” 
PRINT ¢2 "OM THIS MISSION YOUR COMMA 


PRINT :TABC1@)s"RATING IS":1@@@xAL/ 
FOR N=11@ TO Zee 

CALL SOUND (-3ae,M, a) 

NEXT N 

FOR N=2@@ TO 114 STEP -14 
CALL SOUND ¢-3ae8,M, @) 

NEXT N 

STOF 

FOR F=1 TO 2 

Ka Lek (Ps 1) 2k (Ps) 

FOR N=1 TO 12 

CALL HCHAR CL3-N, 17-M, Kk, Ne) 
CALL VCHAR CLE-N, 164+N,E, NRE) 
CALL HCHAR CL2+N, 17—N,E, NK) 
CALL VCHAR (1Z—-N, 17-N, kK, NX) 
NEXT N 

FOR N=1 TO 4 

CALL VCHAR CL, SN, kK, 24) 
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1410 
1420 
1 doe 
1440 
1450 
1440 
1470 
1430 
1490 
17 ae 
171@ 
{72e 
1720 
1740) 
17a 
LY oi 
1778 
1 7 ot) 
738 
1 fs ee 
1819 
Lene 
Lie 
1o4e 
isha 
18468 
17e 
1LBhe 
LEsoe 
19@e 
1°10 
19%) 
1 3® 
L944e 
i cee CA 
196 
1°70 
19) 
Looe 
aa ral | 
21) 


CALL VCHAR (1, 28+N,E, 24) 

NEXT MN 

NEXT F 

PRINT "YOUR SHIF HAS COLLIDED 


PRINT :TABC8); "A "sZ%y" SHIF." 


FOR Nel TO Bae 
MEX T NM 
eS) OF 
FRINT #3 
FOR G=1 TO 10 
PRINT TABCLL): 
FOR Fel TO 10 
IF B«G, Poe THEN 1750 
PRINT CHR (138) : 
IF BCQ, P22 THEN 1770 
PRINT CHES ¢ 128); 
IF BCO,P)<235 THEN 1798 
FRINT "X's 
IF BCO,PO<>4 THEN 1818 
PRINT CHRE (L295): 
NEXT F 
PRINT 
NEXT 
Q=CxD 
PRINT = TAR(S):"FOSITION: ": 
A= "AITIGEL" 
IF 298 THEN 1998 
Ags "STR TUS" 
IF 2930 THEN 1990 
ASB= "ALTAIR" 
IF G@=70 THEN 1990 
Ag: "CANO UIS " 
IF G250 THEN 1998 
Ase VEGA" 
IF G>30@ THEN 1990 
Aé= "PROCYON" 
IF G21 THEN 19964 
A$S= " ALDEREARAN" 
PRINT At 
PRINT :TAB(1): "SECTOR":C:D 
RETURN 
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WITH" 


TREASURE TRAIL 


This game puts you deep underground in a dark cave system. 
The object of the game is to gain as much wealth as possible 
whilst avoiding hazards such as pools of quicksand and 
fearsome monsters. There are also magic caves which will 
transport you to a different part of the cave system if you visit 
them. 


You have a bow and arrows to protect you from the flesh 
eating monsters which you may use when you are in a cave 
adjoining an inhabited cave. If you are unfortunate enough to 
land up in the same cave as a monster it will probably eat you 
but occasionally it may become frightened and run away from 
you. 


You will be shown a map of the cave system at the beginning 
of the game and at various other times but for most of the time 
you will be in the dark which makes the game a great deal 
harder. When the prompt appears on the screen enter N,S, E 
or W to move from cave to cave or press F to fire your bow and 
arrow. The computer will tell you if Something is nearby but it 
will not say which direction it is in. 


Treasure is displayed on the map as a $ sign, quicksand is 
shown with a Q, you are shown as a small face and an empty 
space is shown as a dot. A letter M can either mean a monster 
or magic so beware. 


The game ends when you run out of time, or even sooner if you 
don't avoid the monsters and quicksand. 
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4) 
we) 
6) 
7 
aa 
30) 
{ae 
Li® 
oh 


17 
1 Qe 
198 
Sa 
21 
228 
OX | 


2.30) 


24 
E50 
Ow 
2ve 
ie 
arn) 
Ow 
ZL 
a 
RR 
S48 
25@ 
SO 
378 


Ze) 


RANDOMIZE 
CALL CHAR (C1IS83, "EVEVE7@O1818423C") 
Cad. CHAR CI2ZY, "OOFE7ESEF7EFE EME” } 
CALL. CLEAR 

(TALL. SCREEN (2) 
FOR T=1 TO 13 

(TALL COLOR CT, 16, 2) 
NEXT T 

TES i+ INT CR ND# Le) 

CALL CLEAR 

FRINT TABRCZ) ,"#8¢¢ TREASURE TRAIL 
Sn 

FOR N=1 TO if 

PRINT 

NEXT WN 

DIM ACT @es 

H= 1 

[22 

G=e 

AR= 

FOR B=1 TO lee 

ACR) S44 

IF (Bi iei+ (Be Seo+ C1 @kx INT (CB/ 18) =BO +01 
NT CB/1O@)=B-})=@ THEN 2440 

ACB) =129 

MEX T EB 

FOR B=1 TO 5S 

RESTORE 

FOR D=i TO 3S 

£2 INT CRMDK76G) +12 

IF ACZ)=129 THEN 280 

READ C 

ACZ)=C 

NEAT 2 

NEXT B 

FOR B=1 TO 

READ FCB) 

MEX T 8 

E=35 


ACE) =126 


117 


oO 


ALG) 


Ae) 
Ada 
Ae 
4G 
aye 
4B 
4G 
HE) 
218 
wc) 
)=@) 


aha) 


CALL CLEAR 

GOSUB 2120 

CALL CLEAR 

PRINT 2: TARCL2) : "CAVE": E 

IF Gi=@ THEN 46@ 

PRINT :TAE(G) s "YOU HAVE #"3G; "WORTH" 
PRINT :TAB(12);"0F GOLD" 

GOSUE 1358 

IF E=55 THEN 499 

GOSUE 210% 

CALL SGUND (S500, 131,@) 

PRINT ::TAR(7)3"N, $, E, WOR Fo?" 
CALL KEY (3,d,d0) 

IF (3278) + (J=@3) + (1269) + (d87) + (T2708 
THEN S1@ 

IF ((J=78)+(A(E-10) =129) =—2) +( (J=83) 


+CACE+1@) = 129) 2-2) 020 THEN S5e 


ate a) 
eben) 
aT so) 
G70 
oa 3 2) 
hea) 
bie 
i 

&190 
Gk 
&o 
4M 
6a 
6h! 
b&/@ 
68 
boo 
7OW 
718 
728 
738 


74AQ 


IF ((J=69) + (ACE+1) =129) =-2)+0(79=87) + 


CACE-L)=Leg)e-2)=0 THEN Soe 


PRINT :TAB(1@);"BLOCKED CAVE" 

FOR T=1 TO Soe 

NEXT T 

GOTO 480 

ACE) #4 

E=E+10% (J=78) + (J=87)-10k (J=83) -(J=69 


IF Jeio7@ THEN 6238 
BOSE L540 

IF ACE)£2109 THEN 450 
GOSS 7 Abe 

IF ACE) £277 THEN 4678 
HOSUR 7e 

IF ACE) £281 THEN of 
GOSUWE Like 

IF ACES 226 THEN Yi 
GOSUS tele 

HH + 1 

IF HeGT THEN 1968 
GOTO 41 

PRINT s2:TAB(S) s "7/7/77 /-NNNNNN" 
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73) 
7 OO 
77@ 
7O3@ 
79@ 
Bie 
81 
B28 
3@ 
B44 
ss Bae) 
Géw 
7) 
stata) 
9 
Faw 
9i@ 
one 
38) 
Géher 
958) 
Goo 
978 
330) 
9O@ 


Lae 
101 
{ase 
138 
Lage 


PRINT TABC9) s"\\N\ MAGIC //77" 
FRINT TABCI@) s"\N\NNN_U4/ 7/7" 
ACE) =4G 
E=INT (RNDK76) +12 
IF ACEV=129 THEN 78a 
FOR T=3 TO 16 
FOR TT=1 TO Se 
NEXT TT 
CALL SCREEN (CT) 
NEXT T 
MALL SCREEN (22) 
RETURN 
CALL CLEAR 
PRINT TARCSI 3"? MONSTER HERE? 7" 
FOR T=1 TO 4 
FOR TT=20 TO ® STEF -1 
CALL SQUND(-200,—-3,1T) 
NEXT TT 
NEXT T 
M=RND 
LF Menke THEN Sele 
FRINT :TABC7) 3s "IT IS RUNNING AWAY" 
GOTO 1LHd% 
PRINT -«TABtal¢" IT HAS SEEN YOUs oy" 
FOR T=1 TO 4 
POR TT=30 TO @ STEP =i 
CALL SOUND (-200, 349+ (90-TT#3), TT) 
NEXT TT 
NEXT T 
IF Me .85 THEN 1090 


1630 FRINT :TABC11): "AND FLEES" 


{Hoo 


FOR T=1 TO 408 


1870 NEXT T 


1OBe 
Lace 


RETURN 
FRINT sTAR(&);"AND EATS YOU !!t" 


110@ CALL SOUND (2000, 110,0,-7,0) 
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GOTO ivse 


1126 CALL CLEAR 


L130 


FOR J=1 TO 2©@ 


114@ FRINT TABCS#I) 3; "HORRORS..." 
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115@ FRINT "GQUICKSAND" 
1146@ CALL SOUND (-20@, 210-7*5,0) 
117@ NEXT J 

118@ FOR T=i TO 4@2 

119@ NEXT T 

i2ed GOTO 1988 
121 CALL CLEAR 

122 FOR J=1 TO 2e 
1230 PRINT TAB(S*J):"* WEALTH x" 
124@ CALL SOUND (-200@, 210+5#0,0) 
1250 NEXT J 

1240 CALL CLEAR 
1270 K=INT (RNDK1@@) +100 

12980 PRINT : TAR (6) :"YOU HAVE FOUND GOLD" 
129@ PRINT :TAB(1@)3 "WORTH $"3K 
1300 G=G+k 
1310 CALL SOUND (300@,171,6,165,9,196,@) 
1326 FOR T=1 TO 408 

1220 NEXT T 

1346 RETURN 

350 Y=1 

17460 Lea (E+F CY) ) 

1370 IF (L=46)+(L=32)=@ THEN 142¢ 
1386 IF Y=8 THEN 1416 

189@ Y=V+1 

14066 GOTO 1368 

141@ RETURN 

142@ PRINT :TAB(1@); "NEARBY IS..." 
143@ IF Le>i29 THEN 1456 

1440 PRINT :TAB(12); "NO FATH" 
1450 IF Le>i@9 THEN 1476 

146@ PRINT :TAB(13): "MAGIC" 

1470 IF Le>7? THEN 1496 

1486 PRINT :TAB(12) : "MONSTER" 
1490 IF L2281 THEN 1516 

15@@ FRINT :TABC11):"QUICKSAND" 
1510 IF L234 THEN 153@ 

1520 PRINT :TAB(14): "GOLD" 

S30 FOR T=1 TO 400 

1540 NEXT T 
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L358 
{560 
1378 
{58a 
1S9e@ 
1 oan 
Laie 
Leaiw 
14.30) 
1&4 
14658 


RETURN 

AR=AR~ 1 

IF ARS 2@ THEN 14@e 

PRINT :TAB(9);"NO ARROWS LEFT" 
RETURN 

FRINT :TAB(9):AR: "ARROWS LEFT" 

SSadi 

FRINT :TAB(6):"FIRE ARROW IN WHICH" 
PRINT :TABC11): "DIRECTION?" 

CALL KEY (3,d,0d) 

IF (0578) + (J=83) + (0269) + (0287) =@ TH 


EN 1440 


1448 
1470 
(i 
1480 
1a9a 
17a 
a) 
171@ 
1? es oe 
ioe 
174 
{7Se 
1760 
1770 
1730 
1798 
Loe 
181 
120 
1830 
1340 
L8he 
enrol 
1878 
1So@ 
1890 
1 Fae 
1918 


CALL CLEAR 
IF (J=78)+(ACE-10)=77)< 2-2 THEN 170 


SS= 1 
YTsE-16 
IF (J3=83)+(ACE+10)=77)<¢2-2 THEN 173 


Sis 1 

WYTHE 1 & 

IF (J=49)+¢(¢ACE+1)=77)252-2 THEN 17460 
Sis 1 

¥T=E+1 

IF (J=87)+¢(ACE-1L)=77)< 3-2 THEN 17980 


9 $= 1 


YT=E~1 

IF $$=1 THEN Lee 

PRINT + TABCS) s "NOTHING THERE" 
GOTO 1938 

FRINT :TABC1@) s "RR A HIT ¥xX" 
FOR T=25e@ TO 15 STEF -1© 
CALL SOUND (200@,T,@) 

(TALL SOUND C1L@o, T, @) 

NEXT T 

IF RND?.4 THEN 1926 

PRINT =: TAB(S) s "THE MONSTER IS DEAD" 
ACY T) =46 

G=6+INT CRNDK10®) 

GOTO 1938 
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1Fza 
ED" 

1FEa 
1946 


Lou 


1948 
Lo 78 
LF" 

19ae 


Looe 
a Sa 
Dee 
21 @ 
PALO 
eas) 
Zea 
LOS 
TWSQ) 
207 @) 
2HBO 
LO9e) 
2100 
2118 
Z12o 
2138 
2140 
2158 
2160 
2178 
21808 
2198) 
LLOQ 
2218 


cant) aL) 


2230 
2240 
2250 


2260 


PRINT ¢TAB(S) 3 "THE MONSTER IS 


FOR T=1 TO 408 
NEXT T 

RE TURIN 

RUIN #4 


WOUND 


PRINT TABC4) 2 "YOU HAVE RUN OUT OF A 


PRINT «TABC2) s "YOU SURVIVED FOR" §H; 
eet aR bo oe 
PRINT :TABC4) y "AND FOUND "36; "OF G 


CALL SOUND (258, 262, 0) 
CALL SOUND (125, 262, 0) 
CALL SOUND (125, 262,9) 
CALL SOUND (250, 294, ) 
CALL SOUND (250, 262,90) 
CALL SOUND (250, 294, @) 


CALL SOUND (2000, 220,08, 262,90, 330, 0) 


FOR T=1 TO Bee 

NEXT T 

STOP 

At(E)=128 

IF RAND? S THEN 2240 
FREMT 23 

FOR J=1 TO 91 STEF 16 
PRINT TAB(CL1);: 

FOR JJ=J TO d4+9 
PRINT CHRE (ACI) ): 
NEXT Ja 

FRINT 

NEXT J 

WA=INT (RNDK40@) 

FOF J=1 TO We 

NEXT J 

(TALL CLEAR 

RETURN 


DATA 129,109,77,81,34 


DATA -—11,-10,-9,-1,1, 
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7.19, 


ii 


SPIN A WIN 


You have probably guessed by the title that this program 
simulates a one armed bandit. You will be given twenty 
computer dollars to start with and each spin will cost you one 
dollar. Unfortunately computer dollars can only be spent 
inside a computer. 


When START appears on the screen press S and you will 
actually be able to see the reels spinning thanks to the clever 
part of the program from lines 900 to 1190 and also the routine 
from lines 215@ to 2180. There are three reels and each one is 
made up of three large rectangles, each one being a different 
colour. When the reels stop spinning there will be three 
coloured rectangles beside each other displayed on the 
screen. Ifall three rectangles are the same colour then you win 
$5, and if all three colours are displayed on the screen you win 
$3. Any other combination of colours means that you lose 
your money. If you do have a win you may collect or gamble 
the money by pressing either C or G. Pressing G will cause the 
words NOTHING and DOUBLE to appear on the screen and 
they will flash on and off alternately until, after a while, the 
light stops on one or the other of them. You may gamble the 
winnings as many times as you wish but you will usually lose if 
you gamble more than twice on the same go. If you do gamble 
you have a 4@ percent chance of winning. 


The game ends when you either win more than $50 in total and 
break the bank, or when you lose all of your computer dollars 
and are bankrupt. 


The characters used in drawing the display are defined in lines 
20 to 130 using the CALL CHAR command. Lines 140 to 640 
set up the screen and display the title. The main part of the 
program is from lines 730 to 2010 and lines 2020 to 2140 end 
the game. Variable S is the amount of money that you have 
left. 
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1@ RANDOMTZE 
22 CALL CHAR C128, "SOaaaaaaAgaaaarFr') 


2@ (ALL CHAR CLS9, "FF OOaOOOOGaaaaae " } 
4 CALL CHAR CI Z@a, "O@1@1OL1LO1l@LOL1eaiei") 
28 CALL CHAR CL 21, "BOBO eROBMsyoiode " ) 
60 CALL CHAR ¢ 132, "HAMAD AVADAAE EFF ' ) 


7® (ALL CHAR CL OS, "FEFFOOOOOOMoOMMaa " ) 


6@ CALL CHAR (134, "@2@ZOZOTOTOSOTOR") 
90 CALL CHAR CLES, "Cacecececececece") 
1@@ CALL CHAR (1346, "9@@@018181818e000") 
110 CALL CHAR (L127, "@@eoeaZC3Caaoaaa" ) 
120 CALL CHAR (144, "90001916518180000") 
13 CALL CHAR (L459, "@O@aGasSCICOOOo@a” } 
14@ CALL CLEAR 

15 CALL SCREEN C12) 

16@ CALL COLOR(9,5,5) 

170 CALL COLOR(1@,9,9) 

18@ CALL COLOR (11,2,7%) 

190 CALL COLOR(L3, 2,1) 

20@@ CALL HCHAR (2,3, 132,29) 

210 CALL HCHAR (11,353,123, 29) 

220 CALL VCHAR (3,2, 124,39) 

230 CALL VCHAR (CS, 32, 135,8) 

240 FOR N== TO 25 STEF 11 

25 CALL VCHARCS,N, 120, 4) 

260 CALL VCHAR(S,N+4, 1231, 4) 

270 NEXT N 

280 FOR N=4 TO 26 STEF 11 

290 CALL HCHAR(4,N, 128, 5) 

20® FOR F=5 To S 

310 CALL HCHAR CP, N, 1@4, 5) 

22@ NEXT F 

BBO CALL HCHAR(9,N, 129,5) 

340 NEXT N 

z5@ A=104 

360 B=104 

270 C104 

380 S=2e 

29@ A$=" SPIN" 

4Oa Jaé 
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abige 
4.57) 
2) 
eS Le 
Be 
Sa) 
ers ad) 
mee) 
Sd 
me 
bared 9) 
2G) 


aL 
ale 

bie 
Ou! 
& <b 
oa Ld 
bHO 
a7 
602) 
S98 
ras) 
74a 
Fae 


sey er £34 


fea) 

7 éhip 
reel) 
Pdi 
FF 
738 
FRG 
aL 


js 
(CSUs 
CALL 
hess |! 
flee | 4} 
(SOSUE 
CALL 
fy if sez! 
KE 
(OSL 
1 on 


J=2? 


felsss 
GOS UE 


AS="CNE OF EACH F 


a eg | 


cf sei? 4} 
GOS UB 
Apes | HY 


GBOSUB 
CALL 
IF k= 
ALL 
CALL 
(TALL 
CALL 
yf TY 
Jes | 3 
Kiss [1 
GOSUE 
LF 
IF $3 
ALL. 
CALL 
Affe 1S 
J=1% 
w= 14 
GOSLLIB 


a 


SCLIND ¢ 
Ate " THREE 


eo 


SOUND (S00, 262,0,2 
a WwW 


es 


Lao Wt sa Fort 
ae Ra) 


SOLIND ¢ 
WM 


Eee) my 


Ho ottle atte 


ur 


ae mas a) 


steele tat Me 


a —F Be, 


Fee 


Gel TOE 


ETN 


-= 


t 


o, 


i 


{) 


Seen ee a8) 


shee eden, Fuaat 
hy 


ce ie ert 


eaten aloe tone 


Lr 


“4 a 


ANY KEY TO 


Sia tend 
‘dion dlaee Seas! 


KEY (Sad, 
& THEN 
HCHAR (14,8, 32, 


19) 
Bo} 


oS a i 


Re 


HOHAR CO, 15, 


HCHAR (4, 26, 
Ou 


Lee 


HAVE ge" 


eer 


wea ke) 
THEN 
THEN 
COLOR (14 
COLOR ¢ (15, 
TART" 


iv) Waa Wo 


pet 2) SAT ea 


wiz, 


ey 


je hoes 


ae y 


eyo 


BA 
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rea) 
tq ky 


Cad, ae 


Le 
atin f 


oN WS fc> 


— ag a 


a) 


Ces OY ee ee my bea aa 3) 
wetu, , OU), 


Pag rt an 
wi CO cites gs BS? 


PAYS... Se 


220, 


Flay 


{iy 
tee ae 


HCHAR (4,4, 104, 5) 


Lad, 


i 


\ 


my 


a vel 


=) 


f 


1 
= 2) 
Go) 
B40) 
ha 2) 
Bt 
74) 
Be 
ey 
Fie 
91a 
72 
Se) 
Ge 
Ge 
Fae 
97%) 
SEs 
Soe 


1 OO 


CALL SOUND ¢38@,—-1,0) 
CALL KEY(3,d,) 

IF Ja -GS THEN evita 
CALL HCHAR (17,15, 22,5) 
S2O—- 1 

AF=STRE(S)&" " 

a eat 

ei 1 

BOS ise 

E=INT (CR NDKS) +3 

sited} 

POR Pel To E 

Fy +E} 

IF At120 THEN P60 

A= 96 

=A 

(HOSWE BLE 

NEXT F 

CALL SOUND (156, S22, 0) 


Ee INT CRND KE) 4-6 


1o18 
1 @2o 
ae) 
1646 
{ose 
Loge 
17@ 
L@93@ 
Lire 
11} 
{ii 
Lio 
1130 
1140 
1 ioe 
1146 
117 
L1i8e 
L119@ 


Ke S 

FOR Fs) TO OE 

B=B+e 

IF Beiee THEN 1068 
B=96 

(=F 

GOSUB 2158 

NEXT F 

CALL SOUND (150, 242, 0) 
E=INT CRND*E) +68 

fn St dy 

FOR F=1 TOE 
C=C+3 

IF CeiL20 THEN Lids 
C=96 

(Q=(2 

GOSUR Biae® 

NEXT F 
CALL SOUND (135@,131,@) 
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1208 
Litle@ 
L228 
Lite 
14h 
125@ 
1248 
1270 
1288 
Lge 
1 aw 
1318 
L328 
{335 
1344e) 
{Sao 
1 26@ 
1378 
1380 
1390 
14a@ 
1418 
1420 
14°30 
1 h4e 
L458 
144@ 
1470 
1490 
L498 
{5ae 
151@ 
1B2e 
1538 
{540 
1558 
1540 
135768 
158e 
1359 
Load 


lal s=&) 

IF (A=B)+¢A=C) 2 o-2 THEN 
ise 

IF (S=B)+(A2C)+(BeC) <3@ 
Liss % 

IF W=@ THEN 1658 

Age" YOU WIN 8" 2S TR Cw) 
J=15 

Kos LS 

GOSUB SEA 

(WALL. HCHAR C17, 10, 1346, 13 
CALL HCHAR (17,194,126, 1) 
(TALL. HOHAR CL 7, 26, 144, 1) 
CALL HCHAR (19,26, 144, 1) 


{220 


THEN 


1 


oy 


shee 


Se 


ASCH CL S7 OR COLLECT UR CHAS C137) 


J=18 
Ka 


GOSUR 2239 


AS=CHRS (145) 2 "GAMBLE" &CHRS (145) 


kot? 1 
GOSUB Zeke 
CALL COLOR (1,12, 13) 
CALL COLOR (14,4, 1) 
N= 1 
CALL SOUND (20,185, @) 
CALL KEY O3,d,) 
IF J=467 THEN 1580 
N=N+ t 
IF NS THEN 1450 
CALL COLOR (14,12,12) 
CALL COLOR (15,4, 1) 
N= 1 
CALL SOUND (208, tog, @) 
CALL KEY (C3,0,) 
IF J=71 THEN 1468 
M=M+ 4 
IF NS THEN i530 
GOTO 1416 
S=S+W 
AS=STRE CS) 
J=13 

127 


L610 keh 

1620 GOSUB Sete 

1630 (CALL HCHAR CLS, 13, 3, 112 
1440 GOSUB F1se 

16568 GOTO 7 de 

1460 CALL COLOR (14,12,12) 
1670 CALL COLOR ¢CiS, 12, 122) 
1628e As="NOTHING" 

1690 J=16 

17a@d Kd 

1718 GOSUB Bete 

{720 ae eae 

17 s@)) ksin’ 

1740 GOSUE ate) 

L7So N= 1 

1740 Z=RND 

1778 CALL COLOR (CIS,12,12) 
178@ CALL COLOR C14, 4, 13 

1790 CALL SOUND (200, 270, 2) 
1BO® FOR F=1 TO 40 

1610 NEXT F 

1820 TF (N=5)+¢20.6)=-2 THEN 1976 
1830 (CALL COLOR C14, 12, 

{8408 CALL COLOR CIS, 4, 1) 

LES@ CALL SOUND (2e@, ALS oe 
1340 FOR F=1 TO 4@ 

1870 NEXT F 

1880 IF (N=5)+(Z>=,6)=-2 THEN 1910 
LES Naeh+ 1 

ivae GOTO 17728 

191 Wee 

1?ze FOR N=1 TO 4ne 

1930 NEXT WN 

1744 CALL COLOR (14,12, 12) 
195@ CALL COLOR CIS, Lif, bis) 
1°60 GOTO 12460 

1970 FOR N=1 TO 400 

1?°8@ NEXT N 

1998 CALL HCHAR CIS,13, 32,11) 
2608 GOSUB 2198 
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2010 GOTO 738 

2820 A$="YOU HAVE RUN GUT GF MONEY!" 
2030 J=1é 

POAG ad 

2050 GOSUE 223e 

2060 GOTO 2110 

207 A$="YOU HAVE BROKEN THE BANK!" 
2080 Ja16 

SAGA j= 4 

2100 GOSUE 228 

2110 FOR N=i TO 5a@ 

2120 NEXT N 

21i5@ CALL CLEAR 

2140 END 

Z215@ FOR N=5 TO 6 

2140 CALL HCHAR(N,E,@,5) 

2170 NEXT N 

2180 RETURN 

219@ CALL HCHAR (17,18, 32,17) 

2200 CALL HCHAR(L9, 10, 32,17) 

2210 CALL HCHAR (18,6, 32, 24) 

2270 RETURN 

2250 FOR N=1 TO LEN (AS) 

2240 CALL HCHAR (7, K+N, ASC (SEG CAK,N, 1)), 
1) 

2250 NEXT N 

22640 RETURN 
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FOXES AND CHICKENS 


This is your big opportunity to be an ecologist. The game 
Foxes and Chickens requires you to set up a population of 
these animals in such a way that it becomes self-supporting. 
Too many foxes and the chickens won't be able to breed fast 
enough to feed them. Too many chickens and they will 
overrun the farmyard and crowd out the foxes. 


The computer will give you a month by month read-out of the 
farmyard’s population. Each time the program is run the 
number of chickens needed to feed each fox is randomly 
selected. 


The program also has a high score feature which will tell you, 
at the end of each game, your best effort so far. This of course 
returns to zero each time the program is run. 


Lines 290 to 360 input the number foxes and chickens you 
wish to start with. Lines 380 to 77@ calculate and display the 
number of foxes and chickens that are left from month to 
month. Lines 780 to 120@ tell you which animals died out and 
ask you if you wish to play again. The subroutine from lines 
1210 to 1260 uses CALL HCHAR to position words on the 
screen where it wants to rather than having them appearing at 
the bottom of the screen and then scrolling up. 


18 RANDOMIZE 

20 CALL CLEAR 

20 AB= "WELCOME TO FOXES AND" 

Ae Ta& 

2@ GOS 1218 

60 AS="CHICKENS. THE OBJECT OF THE" 


7 T= 
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8 GOSUB 21a 
OO A= "GAME TS TO CREATE A" 


1 ee 
11 
{2a 
13 
1 4b e 
{Se 
Le 
1/7@ 
1a 
19e 
Lae 
£18 
aren) 
20 
=e) 
ee 
OW) 
27 
28 
270) 
SOG 
aie 
i) 


B® 


J=10 

GOSUB 1216 

Ag="FPORPULATION OF FOXES AND" 
Jie 

GOSUB izle 

AS="CHICKENS WHICH WILL SURVIVE" 
clz 1 4} 

GOSUR 1219 

AS="FOR AS LONG AS POSSIBLE. " 
Je1& 

GOSUB 1218 

AS="FRESS ANY KEY TO CONTINUE, " 
Ji] 

GOSUB 1210 

CALL KEY (30. 

IF k=@ THEN 240 

(AL. CLEAR 

HT = 


PRINT TAB(4); "HOW MANY FOXES WILL": 
INFUT " YOU START WITH (1-99) "2 FF 
IF FF1@@ THEN 330 

FREQ 

PRINT 2:TAB(S)s"HOW MANY CHICKENS AR 


B- Theres 


Zhe 
aba 
eh a3 “ 
= 7) 
i 1) 
SE) 
40 
410 
420 
Ae) 
4244 
45 
450 
470 


INFUT " IN THE FARMYARD (1-99)? ":CF 
Ir CP 100 THEN 376 

CRS oF 

P(t) 

CALL CLEAR 

Ag="MONTH @" 

J 283 

GOSUB L216 

AS="FOXES CHICKENS" 
ge12 

GOSUB 1218 

Aso TR CFF ) 

J=14 

ho 
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4.630) 
Age 
toe) 
a1 
pal 
3) 
ates 3 
Soo 
de 
a 
Bee 
B98 
&@) 
61% 


He 
bP Q) 
7 Me) 
718 
7g 
7.30 
7A 
Pae 
7OO 
77a 
730 
7 Oe 
Gee) 
818 
Bi @ 
B50 
BEG 
=D) 
©) 
87a 


GOSUER i2ce 

A= STR CCF) 
Ke? d 

GOSUB L22e 

FOR N=1 TO 4a0 
NEXT N 

PPaPP/ os 
CP=Ch 73 
MO=MO-+ 4 

Age STR CMO) 
J=8 

Kad 

GOSUB 1220 

IF FP¢=sCP/FD THEN ose 
FP=CF/FD 


FRP=ABRS (FP+ ((SKFFP-FRXCRE/ 3) KFD) ) 
(P=ABS (C+ ¢ (4a PR -CP REP DK. G1) ) 


AS=SHSTRE CINT (FF) &" ‘a 
J 14 

b= §3 

(SO0SUB L228 

AS=STRS CINT CCR) &" . 
Rosie 1 


GOSUR 1L2ze 


IF (FPS) +(CR¢2)=-2 THEN 78e 
IF (FRPS2)+(CF 22) =-2 THEN 850 
IF (FP) 4+(CR2)=-2 THEN 890 


FOR N=1 TO See 

NEXT NM 

BOTO S462 

At="WE HAVE RUN QUT OF 
J= 18 

GOSUBR 1214 

Ak= "AND CHICKENS!" 
J=HEo 

GO0SU8 1218 

GOTO ?2e@ 

AS="WE HAVE RUN OUT OF 
J=16 

GOSUR 12ie8 
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POAES” 


FOXES!" 


GOTO Fee 


898 O$="WE HAVE RUN OUT OF CHICKENS!" 


J=H1e 


G10 GBOSUB izle 


DAG 


CALL SOUND C1L@@ea, 262 ,@, 250, 4) 
CALL ce em 1000.2 Oey 0,3 a aad 
MALL. SOUND (1500, 242,0, 330, 0) 


70 FOR N=1 TO San 

960 NEXT MN 

970 CALL CLEAF 

930 AS="THE FPOFULATION QF FOXES AND" 


ae) 
Leae 
L@1e 
Lose 
1L@3@ 
Lode 
Lease 
Looe 
1a7e 
1H8e 
Looe 

} 

1146 
1ii® 
-L1IZO 


11 3@ 


1140 
L135 
L145@ 
1178 
L1o@ 
1196 
{Zee 
Lic l® 
| eA 2) 
{ite 
1) 

14a 
1250 


124e@ 


JG 


GOSUB 1219 

A$= "CHICKENS SURVIVED FOF" 

J=1 

OSU 1218 

AF=STRS (MOI &" MONTHS 

Jie 

GOSUB L218 

LF PUL THEN Liye 

HIT=MO 

A$="THE LONGEST SO FAR 15 "&STRSCHI 


J=14 
GOSUB 1B1e 

A$="DO YOU WISH TO FLAY AGAIN?" 

Js 26) 

GOSUB 1210 

CALL KEY (3, 0,E) 

IF J 389 THEN 1190 

CALL CLEAR 

GOTO 238@ 

IF J<>78 THEN 1158 

STOF 

K=INT ( (33—LEN (A$) ) /24+.5) 

FOR G=1 TO LEN CAS) 

CALL HCHAR (J,K+0, ASC (SEGS(A$,0,1)), 


CALL SOUND (100, 1@OkO+2kI, 0) 
MEXT 
RETURN 
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ALLEY SCARE 


Most adventure-type games are based on logic and are 
cleverly planned, with many challenges for the player. Alley 
Scare is nothing like that. It is more of an ordeal than an 
adventure. 


The instructions are displayed at the beginning of the game by 
lines 150 to 180 and you are told what to do at various stages in 
the game. Lines 270 to 35@ display various pieces of informa- 
tion on the screen. Lines 400 to 600 tell you what is attacking 
you and with what, and lines 61@ to 71@ give you a choice of 
defensive weapons, decide whether or not you have defeated 
the attacker and, depending on this result call one of two 
routines which tell you if you have won the fight or if you have 
lost. Lines 760 to 1000 hold the information for the situations 
that may occur at any time during the game. 


The variable W keeps track of which alley you are in, Sis the 
amount of money you have and X counts the number of fights 
you have been in. 


1@ RANDOMIZE 

2@ CALL CLEAR 

2@ CALL SCREEN (2) 

4@ FOR N=) TO & 

2@ CALL COLOR (N. 16,1) 

6@ NEXT N 

7@ AS="KK ALLEY SCARE ¥X" 
80 FOR N=1 TO 17 

2 PRINT : TAR(N+7) s:SEGS (ASN, 1) 
1©@ NEXT WN 

110 FRINT 
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120 Xx 

i3@ S=3e 

140 Wet 

15@ PRINT " YOU ARE IN A DARE, SLIMY": 
"OF ENING SOMEWHERE IN a" 

i6@ PRINT "NETWORK OF ALLEYWAYS. yaU":"H 
AVE ONLY THIRTY GOLD FIECES":"IN YOUR FO 
CKET AND YOU MUST" 

17@ PRINT "FIGHT YOUR WAY OUT BEFORE! :"Y 
Cl DIE OF STARVATION. ":" MANY ALLEY CR 
EATURES" 

18@ PRINT "BLOCK THE WAY AND THEY WILL": 
"STEAL YOUR GOLD LF YOU DO":"NOT GUARD I 
T WELL." 

190 FOR N=1 TO 14 

200 FRINT 

21@ NEXT N 

220 INFUT "PRESS ENTER" :A¢ 

23 CALL CLEAR 

24@ IF Wo=1 THEN 24@ 

25) ds f 

260 IF W>=1@ THEN 1010 

27@ PRINT 1:TAR (6); "THIS IS ALLEY NO. "sW 
280 PRINT :TAB(4);"ALLEY NG. 14 IS THE E 
XxIT" 

EPO X=X+1 

OQ PRINT :TABR(4):"THIS IS CHALLENGE NO. 
ney 

210 IF St=1 THEN 320 

320 S23 

25@ PRINT :TAB(4); "YOU HAVE";S3; "GOLD FIE 
CES" 

24@ K=2+INT(RNDK4) 

350 PRINT :TABRC2)s "YOU ARE NOW FACING" E 
"ALLEYS" 

360 PRINT 

27@ INFUT “WHICH GNE WILL YOU TRY? ":A 
38@ IF RNDS.2 THEN 72e 

290 IF A>E THEN 379 

40@ K= INT CRND*4) 
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4,4 TF Ke >e® THEN 428 

420 E$= "GRANT Fat" 

438 TIF Fe-i THEN 454 

440 E#= "WEREWOLF ” 

4509 TF Eabe THEN 470 

460 E*=" TROLL" 

a7. TF Keb THEN «boa 

45@ Ete "7 OMBTE” 

42°00 PRINT :TABCS): "THE ALLEY IS BLOCKED 
BY A" 

Fae E=INT (RND*4) 

flea IF E<t® THEN S26 

B20 FS="FOISONED SFEAR" 

528 ITF Es >1 THEN Sao 

S40 F$="FLAMING SWORD" 

SO IF Exh? THEN 37e 

E40@ FS$="BOW AND ARROW" 

S708 IF E> THEN &9e 

£30 Fe="CROSSBOW" 

S90 FRINT :TABC?7) SEs" ARMED WITH" 

608 PRINT :TABCI@Is "A "SFR 

610 FRINT +: TAB C2): "WHICH WEAPON DO YOU 
HOOSE?" 

420@ PRINT :TABCS)—."A FOINTED STICK ¢1)" 
S30 FRINT TAR (9) : "BARE HANDS cy" 

640 FRINT : TAB(CS8); "A SMALL ROCK ¢3)" 
65@ INEUT & 

£50 C=INTCRNDKS) +1 

670 TF Bf THEN Yea 

639 GOSUB 1250 

é9@ GOTO 744 

7@@ GOSUB 1159 

710 GOTO 746: 

720 K=1+INT CRNDK4) 

730 ON KE GOSUB 760,810,860, 914 

74@ FRINT 

758 GOTO 22a 

769 FRINT : TAB(4) 3 "YOU HAVE FALLEN THROU 
(SH" 

770 FRINT : TAB(11)3"A TRAF DOOR" 
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7M Wek 1 

79@ S=S-INT CRNDKS)-—-1 

Bae FE TUF 

Gig® FRINT :TABL4)— "A FLOOD WASHES YOU DO 
ny" 

e2@ FRINT =: TABCLT@)s"A SIDE ALLEY" 

BG) ssl 

Bb $S=S-INT CRND RS) 4 

B58 FRE TURN 

Soe FRINT +: TABC4) . "YOU HAVE BEEN HELPED 
aa 

a7/O PRINT : TAB CS) s "A FASSING GNOME" 

Be SeS+ INT CRNDRS) +f 

Boa W=W+ INT CRNDxKS) +1 

Smo RETURN 

S10 FPRINT : TABCS):"WHOOFFEE!! & HOARD OF 


owt 


O2@ PRINT :TAR(2):"GOLD, CHOOSE UF To 5 

PIECES" 

o30 PRINT :TAB(¢4);"BUT BE CAREFUL, THE M 

ORE" 

¢40 PRINT :TABCZ):"YOU TAKE, THE MORE IT 
WILL" 

950 PRINT :TAB(2):"COST YOU. HOW MANY TO 
TAKE?" 

840 INFUT D 

O70 IF DES THEN 94a 

93a G=S+D 

990 WelW-INT CDs) 

1880 RETURN 

1@1@ PRINT :TAB(S):"YOQU ARE AT THE EXIT" 
1Q2@ Es 2e+ INT CRNDES) 

1@3@ PRINT :TARCS):"THERE IS A LARGE OGR 

E HERE" 

1@4@ PRINT :TAB(CZ);"DEMANDING':E; "GOLD F 
TECES. " 

1850 PRINT :TABCS);"FRESS ENTER TO FAY H 
IM" 

196@ INFLUT &¢ 

1@7@ S=S-E 
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{980 IF St@® THEN 1150 

Loo PRINT TAGS): "YES, YOU CAN PAY HIM 
L1le@ PRINT :TAB(S) 3s "YOU HAVE WON THE GAM 
= 

1110 IF S=@® THEN 1176 

Li2e PRINT :TABCG)s "AND YOU MAY EEEP THE: 


1120 PRINT :TAB(4):"REMAINING":S: "GOLD F& 
LECES" 

114@ GOTO 1178 

115@ PRINT : TAB (4): "THE OGRE HAS KILLED 
you" 

11460 FRINT :TAB(6)3"YQU COULD NOT FAY HI 
Mm" 

117 END 

118@ PRINT :TAB(4)3"YOU HAVE FOUGHT YOUR 
way" 

1190 PRINT :TAR(8):"FAST THE "Es 

1200 S=S+ INT ORND#S) +4 

121 PRINT :TAB(4):"AND HAVE":S: "GOLD FI 
ECES" 

1220 W=W+INT (RNDAS) +1 

1230 PRINT :TABC2):"YOU GARE APPROACHING 
ALLEY": W 

L240 RETURN 

1250 PRINT :TAB(2)3"THE ":E$:" BEAT YOU 
AND" 

1260 S=S-INT(RNDK4) -1 

1270 PRINT :TAB(8): "LEFT YOU WITH": 
1280 PRINT :TAB(1@):"GOLD PIECES" 

L290 WebW+1—INT CRND® 3) 

1300 IF W:@ THEN 1220 

L318 Wed 

1320 PRINT :TAB(4):"AND SENT YOU TO ALLE 
Yh 

123 RETURN 
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SKITTLES 


With this program you can try your luck at bowling. The 
computer will show you a view of the bowling alley from 
above, with ten skittles set out in the usual way at the top of the 
screen. You will then be able to play agame of ten frames with 
two balls to each frame. 


The computer will tell you which frame and ball you are 
currently playing, your score for that frame, your total score 
and also the highest score achieved over ten frames so far. It 
will also reset the skittles for you after each frame. When the 
screen has been set up by lines 20 to 61@ your ball will appear 
at the bottom end of the alley. You may then move it left or 
right using keys S and D, and when it is in the correct position 
press B to bowl. The ball will then roll up the alley and knock 
over any skittles in its path. When the ball hits a skittle it will be 
deflected in any one of three directions. A skittle which is 
knocked over by the ball may knock over other skittles beside 
or behind it making the game much more realistic. 


You score one point for each skittle that is knocked down and 
if you successfully knock all ten skittles down in the same 
frame then you are given a bonus of five points. 


Lines 620 to 69@ allow you to line up the ball before you bowl 
it. After you press B the ball is moved up the-screen by lines 
700 to 740 and lines 750 to 1030 work out which skittles have 
been knocked over. Then the score is adjusted accordingly by 
lines 1060 to 1190 and it is displayed on the screen. After all 
ten frames have been played lines 1280 to 1340 end the game 
and amend the high score if it has been beaten before going 
back to the beginning of the program for a new game. 
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1 
=) 
cs) 
440) 
at 
OH! 
Fu 
i} 
oi) 


Te 
z1l@ 
mG) 
mer 2) 
as acd) 
fue) 
Zao 
7) 
Fact) 
are) 
es) 
i 
man) 
38) 
S44 
bd) 
268 
37 
283Q) 
3 
Aine 


RANDOMIZE 

(MALL. (CLEAR 
CALL SCREEN (7) 

FOR Me). TO 8 
CALL COLOR (N, 14,1) 

NEXT WN 
CALL CHAR CLIZ5, "®@1SSCECIACSC Bee") 
MALL CHAR CL SG, "LESCSCISLELEaLS To") 
CALL COLOR (9, 14, 16) 

GAlci. COLOR (1G, bite bor 

CALL. COLOR (1%, 2, 16) 

GALL GOLORC Lays e li) 

CALL COLOR (14,5, 14) 

Abe "Oe T TTLES " 

FRINT TABCL4) 3" /\" 

PRINT sess 

PRINT TAR(L1),;A% 

FRINT see: 

AS=AEzR," "RAs 

PRINT TAB(CGH) sA% 

PRINT s223 

AB FYBR," "ROEGS CAS, 1,5) 

FRINT AS 

FRINT see2 

He) 

FOR N=1 TO 1e@eae 

NEXT WN 

CALL CLEAR 

PRINT TAR C24): "FRAME" 

PRINT « "SCORE FOR": TABC2S) 5 "=1" 
PRIMT "THIS FRAME” 

FRINT : TAB(C4) 3 "=a" 

FRINT TAR CS4) 5 "BALLS" 

FRINT TABCS4) 5 "LEFT" 

PRINT 2 TAB (sa) ese" 

PRINT TAB CS)" TOTAL” 

PRINT TAB(S)s “SCORE” 

PRINT 3: TAB(C4) s "="; TAB(S4) s "HIGH" 
FRINT TAB C24) 5 "SCORE" 
PRINT sTAB(CS4) 5, "="5H 
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410 PRINT oo: 

420 FOR N& i= TO 21 

430 (ALL VOHAR CI,N, 4, 24) 
440 NEXT WN 

450 Fa® 

446 AS=CHRS (155) & CHAE (9S) 
47 ASB ABR ry EL 

4530 FOR A=1 TO 1e 

49@ b= 

2A BS=STRE CAE ' 

wi@ CALL HCOHAFRC C7, 26, ASC (SEG (H#,1,1)3,13 
mee! CALL HCHAR (7, 24, ASC (SEGS (BS, 2,1)), 1) 
Jo8 CALL SOUND (S00, 151,40, 165,@) 
240 FOR J=2 TO & STEF 2 

Hae BES CAB, 1, 1a-d3 

268 GOSUB 1268 

3708 MEXT J 

200 B=] 

2?@ CALL HCHAR (1, 7,45, 1) 
60@ CALL HOHAR C1 By eo a 
610 CALL HCHAR (14, 28, 51- By 12 
&2a Y=]? 

650 CALL HCHAR (24, Y, 96, 1) 
640 CALL EEYCS,0,6) 

63@ Y=¥+(J=O3)-(J=68) 

640 YY (Ys) - Cystic 

67@ IF J=66 THEN Yoo 

68@ CALL HCHAR C24, Y, 126, 12 
é9@ GOTO 430 

7@O® FOR N=235 TO 9 STEFF -1 
719 CALL SOUND (-10@@@,-3,1@) 
728 CALL HOHAR CN+L, ¥,96, 1) 
730 CALL HCHAR (O(N, ¥, 1295, 1) 
740 NEXT N 

7350 V=e@ 

74® Wey 

77® FOR N=8 TO 2 STEF —2 
7B@ Yry+¥ 

79@ CALL SOUND (-2a@ea,-S, 12) 
B8O@ CALL GOHAR CN, Y, @) 
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810 CALL HCHAR(N+1,W, 94, 1) 

8/20 CALL HCHAR CN, Y, 12, 1) 

B50 Wey 

640 IF G<ibité THEN 97@ 

g50 CALL SOUND (-100, 262,0,-, 10) 
S40 VYeINT (RNDES) ~1 

S70 IF CRNDS.4)40¥214) 2>-2 THEN @9e 
880 CALL HCHAR(N, Y~2, %4, 1) 

890 ITF CRMDS. 4) 4 0¥¢20) o>-2 THEN Fie 
9 CALL HCHAR(N, Y+2, 96, 1) 

910 IF Nea? THEN 94@ 

920 IF RND<.6 THEN 948 

9730 CALL HCHAR(N-2,Y-1,94, 1) 

940 IF RND¢.4 THEN 998 

930 CALL HCHAR(N-2, Y+t1,94, 1) 

940 GOTO 990 

970 FOR Fed TO 4@ 

90 NEXT F 

990 CALL HCHAR CN, Y,94, 1) 

1@@@ CALL HCHAR(N-1,Y, 128, 1) 

1010 FOR Fe. TO 46 

1@20 NEXT F 

Laso NEXT N 

1940 CALL HCHAR (L,Y, %6, 1) 

1650 CALL SOUND (-1,-7,@) 

1960 Z=1@ 

1970 FOR N=i TO 4 

198@ FOR P=134+N TO 21-N 

1490 CALL GCHAR CM#?, FG) 

1100 IF G@<>i36 THEN 1120 

11410 Z=Z—1 

1120 NEXT F 

11350 NEXT N 

1140 §=2 

1150 IF Z<>1@ THEN 117 

L168 S45) 

1170 Be=STRE(S) a" " 

1180 CALL HCHARCLO, 7, ASC (SEGS CR$,1,1)), 1 
1190 CALL HCHAR (14,8, ASC (SEG (B$,2,1)),1 
} 
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{ae 


Lie 


i4ao 


R= B+ 1 
iP pes THEN. O18 


Rae TRB CR RN 


CALL HCHAR (18, 7, ASC (SEG (8$,1,1)),1 
CALL HCHAR (16,8, ASC (SEG$(BS,2,1)),1 
CALL HCHAR (16,9, ASC (SEG#(BS,3,.1)),1 


NEXT A 

CALL HCHAR (14,26, 48, 1) 
B= "END OF GAME" 

Jed 

GOSUB 134¢ 

IF FH THEN 240 

[sr 

GOTO 24a 

CALL HOHAF C14, 28,48, 1) 
Ke INT ( C32-LEN (BS) ) /2) 41 
FOR N=. TO LEN Ona) 

CALL HCHAR (J, K+N, ASC (SEG$ (BS,N,1)), 


NEXT WN 
PRES T LIM 
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NUMBER JUGGLE 


In this program the computer displays the numbers from zero 
to nine in a random order. Your task is to unscramble the 
numbers and put them into the sequence 0123456789 in as 
few moves as possible. This is done by either reversing the 
whole sequence or just a part of it. For example, the computer 
generates 7354098621. It will then ask you “REVERSE 
NUMBER?”. Entering 1 would then reverse the whole 
sequence to read 1268904537. Entering 5 would then reverse 
the numbers from the fifth number onwards. That is 
1268735409. The game finishes when you put the numbers 
into order from @ to 9. 


Lines 7@ to 160 draw a sine wave at the beginning of the game. 
Lines 200 to 340 generate the ten digits and juggle them 
around. Lines 36@ to 530 allow you to continue reversing parts 
of the sequence until you get it in order. When you have done 
this lines 540 to 630 tell you how many moves it took and playa 
short tune. 


L@ RANDOMIZE 

2@ CALL CLEAR 

30 CALL SCREEN (LZ) 

4 PRINT TAB(S) "NUMBER JUGGLE" 
Sa FRINT 

ba 2249 

7@ FOR N=@ TQ 6.2 STEF 8.2 
BO Y=Nes+ 1 

G6) Xe STN CN) KE 

108 Se. LO+RND#2ae 

11@ CALL HCHAR(X,Y, 2,1) 
120 CALL SOUND (128,9,@) 
13@ Z=Z+1 

140 IF 2.58 THEN Loe 
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{Ee 
148 
ive 
1o@ 
1 a 
ee) 
Zia 
eG 
ramet) 
Abe! 
2 
Oi 
2/8) 
ea id) 
aoe 
Oe) 
i]a 
a @) 
mT | 


Ab 


Aya 
4.63 
Age 
OL) 
aie 
Bie) 


eens set 
an “elt i) 


Z=4g 

NEXT N 

FOR Nei TO Bea 

NEXT MN 

M= 4 

FOR Nel TO 18 

ACN) =N+47 

NEXT N 

FOR T#i TO 2e 

Kes 1+ TNT CRN 1G) 

Yei+INT (RNDK1a) 

Ea (xX) 

Cea cy) 

A CX) sf 

ACY) =B 

NEXT T 

Aye 

FOR Nei TO 1a 

AS=ASLCHRS (ACN) ) 

NEXT N 

CALL CLEAR 

CALL SCUND (20a, 262, ) 

CALL SOUND (26@, 523, 0) 

CALL SOUND (208, 262, @) 
PRINT 22 TABOS) 3 "MOVE NO. "sMe"s 
PRINT 2 TAR CE); "REVERSE NUMBERS?" 
INFUT Fi 

IF (Rd) +(ReS)<>@ THEN 410 
Babe" 

FOR T=1@ TO R STEP —41 
BS=BSe SEG (8, T, 1) 

NEXT T 

TF Fed THEN Se 
A$=S5EGS (A$, 1,R-1) &BS 

GOTO 316 

As=BSs 

IF AS="Q1 25454789" THEN 54e 
Meh J 

GOTO 36a 
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"Ag 


S40 FRINT : TAR CLE) At 

coe FRIST 223 TRpeieye YOR OID iT a" 

Heo PRINT «TAR CH) e° 1) TORR’ s Ms "MOVES. ™ 
27@ PRINT 22% 

7a RESTORE 

Soa FOR N=1 TO 7 

400 READ & 

610 CALL SOUND (100,5,0) 

620 NEXT NM 

Gee DATA Lol, 165.1976, 257.195, 165,131 


146 


TWENTY ONE 


This program plays a dice version of the card game Pontoon. 
The object of the game is to roll the dice until the total is either 
21, or as close to it as you dare go. Rolling more than 21 
causes you to lose. 


After you’ve had your turn at rolling the dice, the computer 
takes its turn. You'll find that the computer plays this game 
quite well and will win more than fifty percent of the games 
unless you are very careful. 


When the program is run the computer will ask you to enter 1 
to roll, 2 to stand, 3 to end. Enter 1 to roll the dice as many 
times as you wish. When your total is as close to 21 as you’re 
prepared to go enter 2. This gives the computer its turn. When 
you are tired of playing enter 3 to end the game. 


Lines 110 to 190 draw the circle of numbers at the beginning of 
the game using sine (SIN) and cosine (COS). The loop has to 
go from @ to 2*Pl as the computer works in radians rather than 
degrees. There are 2*Pl radians in one complete revolution. Pl 
is defined in line 110 using the DEF command. The players go 
is controlled by lines 27@ to 42@ and the computer’s go is 
controlled by lines 430 to 540. Lines 550 to 640 work out who 
has won and call either the routine from lines 980 to 1010 or 
the routine from lines 1020 to 1050. If it is a draw then the 
routine from lines 920 to 970 is called. The dice is rolled by the 
routine from lines 650 to 71@ which also provides the sound 
effects. 
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{© RANDOMIZE 

24 CALL CLEAF 

2 CALL SCREEN (>) 

4@ (ALL COLOR 2, 7%, 13 

§@ CALL COLOR (4,7, 1) 

68% PRINT TAR C13); "TWENTY" 

7! FRINT +: TAB(14); "ONE" 

Ba FOR Net TO 18 

ea FRINT 

1@o NEXT WN 

1i@ DEF FI=2.1416 

120 Ae 

13@ FOR N=8@ TO SkFI STEFF .4 
140 X=1@#e95 TN CN) 

Le Y=1exKCOs (Nn) 

16@ CALL HCOHAR CX+12, ¥+17,8, 1) 
170 A=—-49RK (4=50) -SOk (A=49) 
186 CALL SOUND (19@,AF4,@,A-o1, G3 
190” NEXT WN 

OG HH=e) 

2198 CC=0 

220 FOR Wel TO Leee 

220 NEXT WN 

240 CALL CLEP: 

2308 H=2 

260 C= 

270 PRINT sTABCS) ¢"1 TO ROLL, = TO. STAND 


280 PRINT :TAB(12):"3 TO END" 

290 CALL KEY (3,0,K) 

Ta@ IF (J=49)+(J=50)+(J=51)=6 THEN 290 
31@ IF J<>S. THEN 33a 

220 STOP 

33@ IF J=5@ THEN 436 

24@ GOSUB 650 

3530 H=H+D) 

74@ CALL SOUND (30, 156,40, 622,90) 

370 PRINT :T@B(8): "YOUR SCORE IS"sH 
28@ IF HiZ1 THEN 290 

390 IF H=21 THEN 420 
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4a 
41 
42g 
re) 
AAG 
4o 
$40 
47 @) 
430) 
ADA 
Soe 
S18 


eS) 


mak 
ae) 
att) 
ee) 
hatte) 
a) 
Ee3@) 
9a 
i 
o1@ 
éae 
6.58 
&440 
rh) 
bo@ 
67 
630 
hH98 
7OO 
71i® 
72 
Pat 
7A 
rest) 
Feo 
778 
730 
79w 


— 


GOSUB 72a 

GOTO 430 

GOSUB Sie 

PRINT ses TABC1lil)."MY GO NOW" 
GOSUB &5e 

C=C+D 

CALL SOUND (Soa, 225,80, 932,80) 
PRINT :TABCS) s "MY SCORE Ia ey 
LF (Oc 21) +(HeC) ane THEN 44@ 

TF (Mee) + CH) + Cl 19) THEN 444 
IF cx THEN SSo@ 

IF C=21 THEN 34 

GOSUE “720 

BOTO Bae 

GOSUB S1e@ 

IF He THEN 616 

IF HC THEN 59a 

BOSWs Pie 

GOTO 624 

GOSUE Siva 

GOTQ 426 

GOSUB leste 

PRINT ::TAB(S) sHHs "GAMES TO YOU" 
PRINT :TABC9)sCCs "GAMES TO ME" 
GOTO 228 

D=1+INT CRND #6) 

FOR N=1 TO 28 

CALL SOUND (CL@,-1,@) 

CALL SCLIND (18, -7, 0) 

ME XT 

PRINT :TABC7)s "THE DICE SHOWS A";D 
RE TURN 

PRINT ::TAB(i2Z)s"B US T" 

FOR N=1 TO 2a 

CALL SOUND(100,110,0,-7,@) 
NEXT N 

IF He21l THEN 790 

(= 

RETURN 

ja 


149 


Ben 
Bie 
i 
Ena 
read) 
Bae 
cafe kd 
eo 
pie 
BP 
Ae) 
Sie 
mre) 
930 
Gehan 
Gog 
Sao 
O78) 
Sou 
990 
Lima 
Loie 
Lane 
LOS 
1040) 
Lose 


RE TURN 
PRINT “$TRBtG6se"T WEN T ¥ GON 
FOR Nes TO 14 
CALL COLOR (1,1, MN) 
CALL SCREEN CN) 
FOR F=1 TO S 
CALL SOUND (3, N#k6G, Gi) 
NEST 
NEXT N 
CALL SCREEN(S) 
CPL SOO 6 dy hy 
RETURN 
PRINT sTABCITY ¢ "DEAD HEAT" 
CALL SOUND (S00, —-3,@) 
CALL SOUND (1@,-1,9) 
HH=HH-+ 1 
CC=CC+1 
RETURN 
PRINT sTAbtioye “1 WT oN" 
CALL SOUND (sea, LoL, @) 
CC=CC+1 
RETURN 
PRINT sTABSS7e"9 0 WIN" 
(TALL SOUND (300, S25, 0) 
HH=HH+ 1 
RETURN 
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ORCHARD NIM 


This program will print a random number of apples on the 
screen. You and the computer then take turns removing 
apples from the board. The one who is forced to take the last 
apple is the loser. 


Each game the computer wili place a different number of 
apples on the board and set a different maximum number of 
apples which may be removed at any one time. The computer 
will display on the screen the number of apples left, the 
maximum number you are allowed to remove, the number of 
apples both you and the computer removed that turn and a 
graphic display of the apples. 


The computer has been programmed not to play perfectly. 
Line 580 puts a random factor in the computer’s moves if the 
condition is met in line 57@. Lines 320 to 380 print the apples 
on the screen. Variable Z is the number of apples that are left. 
This is initially a random number between 21 and 36. Z is 
modified by your input (C) in line 40@ and by the computer's 
move (D) in line 620. Lines 530 to 610 are the lines the 
computer uses to make its moves. 


i RANDOMIZE 
28 CALL CLEAR 
S@ CALL CHAR (125, "@ClO@S4FEFEFE7C38") 


40 CALL CHAR C134, "FFFFFFFFEEFEEFFE "} 
Fa) CALL. SCREEN (14) 
6@ CALL COLOR CLS, 3,1) 


7@™ CALL COLOR(14,11,1) 
BO PRINT TARCI@) s "ORCHARD NIM" 
92 FOR N=i TO 12 
Loe PRINT 
i1@ NEXT WN 
151 


128 FOF N 
ize CALL 
146 CALL 
tee NEXT 

I Fe 


14 

t?e@ CALL 
180 CALL 
1m CALL 
288) TALL. 
21@ NEXT 
mal (=e 
220 Oe 
e4@ Z=21+ 
ma) Fatt J 
260 DIM A 
278 GOTC 
230 FRINT 
290 PRINT 
UVES “sr 
3ao FRINT 
T TOOkR "sD 
210 PRINT 
S28 FOR N 
woe PRINT 
340 FOR F 
258 FRINT 
340 NEXT 
2/79 FRINT 
380 WEXT 
are. PRINT 


Rie 


N 


4090 
4.14 
420 £2Z- 
420 IF Ze 
446 CALA 
4350 CALL 


INFUT 
LP <C 


—~ 


440 PRINT TABCG):"# # # 


470 FOR N 


4890 FRINT 


CG 


=1 TO 4a 

HCHAR (L+RNDK2S, 1+RNDKEL, 128, 1) 
SOUND C10, 11O+RND* LOG, @) 

N 

= TO 24 

HCHAR (N, 1 2) 
HCOHAR (CM, 3, 136, 1) 

SOUND (20@, 11@4+N#18,) 
HCHAR (MN, 3, 32, 1) 

N 


“enor 


acta 


INT (RA NDK14) 
NT CRIND ASS) 

(36) 
PSD 

TAR(S) 3s "FIECES ON BOARD: "32 
:TAR CS); "MAXIMUM NUMBER TO REM 
:TABCS) 3 "YOU TOOK"; C; TABCS@) s" 


:TABCI®@) | 


> 


=a TO 3 
CHRSCACN+R) Dg" "ss 


e 


rH 
>: TABS4) 3s "HOW MANY WILL YOU TA 


Cc 
£1)+(C2F)<>@ THEN 40@ 
® THEN 
CLEAR 
SOUND (100@, 262, 9, 330,0, 392, @) 
I WIN # # #" 


=1 TO 8 


pe 


499 NEXT N 
Goo FOR Nel TO aaa 

S10 NEXT N 

S20 GOTO 81a 

S50 DeZ—-1-INT (¢Z—1) / CF +1) RCP +4) 
§4@ 1F (De@)+(Z2>1)¢e-2 THEN 5a 
S90 D=1+INT(RNDKF) 

$40 IF DeeZ THEN Sie 

S7@ IF RND<.8 THEN 59a 

§8@ D=D+ INT CRND#S) -INT CRNDE2 } 
S90 IF D>F THEN 5ae 

400 IF D>O® THEN éma 

619 D=1 

G20 Z=Z~D 

450 IF Z>@ THEN 73@ 

640 CALL CLEAR 

650 CALL SQUND (1000, 292,0,494,9,587,0) 
660 PRINT TABCE) :"*k € k YOU WIN # > ¥" 
£70 FOR N=1 TO @ 

69 PRINT 

699 NEXT N 

700 FOR N=1 TO ge 

719 NEXT N 

72a GOTO 818 

73@ FOR N=1 TQ 

740 ACN) =128 

78@ NEXT N 

74a FOR N=Z+1 TO 34 

77 ACN) =32 

78 NEXT N 

798 CALL CLEAR 

go@ GOTO Bae 

&1@ PRINT TAB(4); "ANOTHER GAME? (¥/N)" 
820 PRINT :: 

83 INFUT As 

840 IF Ag="¥" THEN B20 

650 IF AS<>"N" THEN Sze 

84a END 
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SPACE RACE 


Five martians are stranded in space and they must all be 
rescued as quickly as possible. The only problem is that a vast 
asteroid belt separates them from your small ship and your 
fuel tanks can only hold enough fuel for you to rescue one 
martian before returning to your mothership to refuel. The 
mothership however is so large that it can supply you with an 
almost unlimited amount of fuel which means that you can 
make as many trips through the asteroid belt as you wish. 


You start off with three ships but you destroy one each time 
you hit an asteroid. Your ship starts at the bottom of the screen 
and moves upwards towards the martians automatically. 
Press the S key to move left and the D key to move right. You 
may also put the ship into reverse by pressing the space bar 
but this wastes valuable time. If you manage to reach the top 
of the screen without being destroyed you are given a few 
seconds to pick up a man before the ship turns around and 
starts to move back down the screen. If you hit an asteroid on 
the return journey and a martian is onboard he will be killed. If 
you save all five martians or all of your ships are destroyed the 
game ends and you are asked if you wish to play again. 


This is quite a fast moving game as the number of objects that 
move on the screen at the same time have been kept to a 
minimum. If | had wanted the asteroids to move as well as the 
ship | would have had to write the game in a low level language 
such as machine code which | am afraid it is not possible to do 
using the standard machine. 


12 FANDOMIZE 

2” CALL CHAR (128, "O01 BSC7E7ZESC S000" } 
30 CALL CHAR C136, "@BO@B LOSE SEZ FAIA " } 
46 CALL CHAR (127, "49497F SE SEILCO806" 
5® CALL CHAR (C144, "ZS6C S61 OFE1Le2e44 "5 
608 CALL CLEAR 

74 CALL SCREEN ¢i2) 

0) CALL COLOR (1, 2, 2} 
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90 FOR Nes TO & 

fog CALL GOLOR (Ns lo, 1) 

1i@ NEXT WN 

12@ CALL COLOR, 2,1) 

120 CALL COLOR CL4, 6, 0) 

{4@ CALL COLOR CTS, 12,13 

1S@ PRINT TABC4) 3; "SEILL LEVEL ? ¢1 TO 9) 
too FOR M=1 TO le 

178 FRET 

13a NEXT WN 

19@ CALL Bay toads ho) 

200 [TF (Ji49) +7257) < ea THEN 190 
21@ NN= C949) “15 

a2 CALL CLEAR 

eg T Tam 

Z40 SF 3 
eg MMe 

240 PRINT TABCL1)s "SPACE RACE" 
2 PRIME 24% 

230 FOR N=1 TO 2e4 

2978 TF RNDSNN THEN Sine 
220 PRINT CHR (i28) s 

S14 GOTO 23a 

aa PRIM & es 

S38 NEXT NM 

240 CALL COMQIR (13,16, 
ae FROM LAE 2 ees 

360 CALLAWAICHAR (1 fa 2, 1c) 
378 (TALL HOHAF CL, 3, 144, 1) 
B® CALL HCHAR (1,9,144, 1) 
oF@ (TALL. HOHAR CL, 17, 1444, 15 
40 CALL HCHAR (1, 24,144, 1) 
41@ (ALL HOHAR CL, 30, 144, 1) 
420 C= 

A ARs) 

44a X= 

420 Y= S+ INT ORND# 29) 

40 V=X 

AL Fe) lajss'y¥ 

4930 CALL SQUND(2@@, 292,@) 
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490) 
Se 
rage A 
B® 
ae a) 
EB dhe 
ee 
Froid 
B78) 
ese 
pa acd) 
be 
610 
620 
63a 
babe 
oe 
bee 
a7 
£638 
Ao 
Pre 
71@ 
7Be 


whe 


BE 


hed) 


CALL KEY (3,d,K) 
YeY¥+ (J=83)-(J=4o) 
Ye¥+ Cys S 1) Cy 2) 

CALL SOUND (-S@a@,-3,15) 
LF ds. oo2 THEN Seo 
CALL SQUND(-480,-5, 0) 
Xe Xd 

X=X+ CX ES) 

TLeTI+e 

TI=TI+1 

x=X~ 1 

IF X=1 THEN 1130 

CALL GCHAR CK, Y, 23 

IF 222128 THEN 640 

(Cs 1 

CALL HCHAR(V,W, ZZ, 1) 
CALL HOHAR CX, ¥, 134, 1) 
IF C=1 THEN 7®® 

a x 

Wa 

I0TO 496 

FOR N=1 TO 2@ 

CALL HCHARCX, ¥, 137.1) 
CALL HCHAR(X,¥,124, 1) 


CALL. SOUND (-200,—7,.N¥1. 


NEXT N 

CALL. HCHAR (KX, ¥s 128, 1) 
SPH gr | 

IF AB=@ THEN YS 

MN MN 1 

IF SF=@ THEN 40 


s 4 
a! ! 


AS="SHIPS LEFT "ROSTERS CSF) 


Y=24 
Z=10 
GOSUB 1848 
FOR N=t TO 4 
CALL COLOR(S, 16,2) 
FOR NN=t TO Se 
NEXT NN 
CALI. COLOR(S, 2, 14) 
FOR NN=1 TO 3@ 
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sn TE) 
S18 
ot 


a8) 


NEXT NN 
NEXT N 

PALL HCHAR (24,9, 32,15) 
GOTO 178 


740 CALL CLEAR 


9 @ 


CALL. COLOR (4, le, 22 


F460 AS="ALL SHIPS DESTROYED" 


O7e 

FE 

996 

Lao 
L@1@ 
Lae 
{oe 
Lage 
page 
1H6o 
1a7a 
Laan 
L@9e 
11a 
Lije 
L120 
1130 
{14 
Lie 
1146® 
1170 
118% 
1190 
L2ae 
L218 
{Ree 
123@ 
{240 
L258 
1240 
1276 
1280 
1290 


Yat 
Z=7 
GOSUE 184e 


Ag="YVYOU SAVED "SBSTRS (MMI &" MEN" 
Yao 

z= 

GOSUE 1848 

H=INT (TI / 60) 

MTT -HKG a 

AS="TIN "EaSTRS CHS" HOURS AND" 
Yris 

Ley 

GOSUR Le4e 
AS=STREC(MI&" MINUTES" 
Youj4 


GOSUB 1844 

GOTO 1888 

FOR N=. TO 3 

CALL GCHAR (X,Y, 2Z) 
CALL HCHAR CV, W, 22, 1) 
CALL HCHAR (X,Y, 126, 1) 
IF Zo>144 THEN 1236 
CALL SOUND (5@,242,9) 
CALL SOUND (100, 330,03 
CALL SOUND (20, 392, 0) 
MINS: MN+ 1 

AR= 1 

Vax 

W=¥ 

CALL KEY (3,0,K) 

Y=V¥+ (J=83) —(J=68) 
YeY+ (YsS 1) — Cys 2) 
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1 3eo 
L121] 
{320 
L220 
1240 
1L3c0 
{260 
1278) 
1280 
1298 
{ <a 
L41@ 
{ hoe 
143© 
1 hc 
1450 
14 
1470 
i4a0 
L490 
1 Saw 
{Sig 
1S2@ 
{Sao 
1S4e 
{Se 
156@ 
i370 
LSoe 
LSge 
Lamin 
1/18 
1628 
Laie 
16404 
1aSe 
144 
1470 
1490 
Lease 


NEXT WN 

Xerle 

CALL HCHAR(V,W, 32, 1) 
(Alke. AGHAR ERS Yo 15-75-13 
Vez X 

Wis 

CALL MEY (3.0.12) 

Yay + CFG) C663) 
YeY+CVY=31)-0¥=2) 

CALL SOUND (-20e, —Sy 13) 
IF Je 232 THEN 1450 
CALL SOUND (-4@@,.-—5,@) 
X= X— 2 

REX OCXC1) 

TI=TI+1 

TI=TI+1 

X=X+1 

TF X=24 THEN JS7e 
CALL GCHAR (X,Y, 23 

LP 2eehed THEN: Toate 
C=] 

CALL HCHAR(V,W, 32, 1) 
CALL HOHARtX, ¥, 137, 15 
IF C=1 THEN ee 

Wiss x 

Ww=¥ 

GOTO 1362 

TF ABR=0 THEN 1668 
MALL SOUND (1@@, 262, @) 
CALL SOUND(1@@, 320, @) 
(ALL SOUND (1@@, 292, @) 
CALL SOUND (19, 330,09) 
(TALL. SOUND (10@, 249, 0) 
CALL SOUND (100, 294,00) 
(CALL. SOUND (2@8, 262, 0) 
GOTQ 16708 


FOR N=li1i@ TO 110 STEP 


CALL SOUND (S,N,®) 
NEXT NM 
CALL HCHAR(V,W, 32, 1) 
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~~ 1L@ae 


17@@ Nise 

1718 FOR N=1 TQ 32 

1728 CALL GCHAR CL. N, Z3 
i730 IF Zi2144 THEN 1730 
L744 N= 4 

1PSe NEXT WN 

1768 TF NN=1 THEN 4ita 
iv772@ CALL CLEAR 

178® CALL COLOR CS, 14, 22) 
1798 AS="VYOU DESTROYED "&STRé(2-SF)&" SH 
TRS" 

1Be@ Y= 

1810 Zs=7 

{820 GOSUB 1640 

130 GOTO Leae 

i84e@ FOR N=1 TO LEN (CAS) 
1850 CALL HCOHAR CY, Z4+N, ASC (SEG# (A$, N, 10), 
La 

1660 NEXT WN 

1870 RETURN 

1586 Ag="ANOTHER GO F" 
LES@ Yue 

Lora Ze1e 

1916 GOSUE 1e4e 

1920 CALL. REY (3. J0,k) 
1930 TF g=89 THEN 68 
194@ IF J<i>78 THEN i92e@ 
1950 END 
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Editing and digital rework in 2022 by: 
TI99 Italian User Club 


(info@ti991uc.it) Downloaded from www. ti99iuc. it 


In this book Scott Vincent has brought together 
an exciting collection of dynamic games for your 
TI99/4A. With 29 programs just waiting to be 
typed in and run, this book will give you hours 
of fun in the weeks and months ahead. All 
program listings are direct from the printer and 
guaranteed to run. 


Games in this book include: 


® NINE HOLE GOLF 
ROULETTE 

DIGET BRAIN 

SPACE SURVIVAL 
GOLD MINER 
CUBIK’S RUBE 
TREASURE TRAIL 

and many, many more ! 


Another Great Book from 
Interface Publications 


